Паскаль ABC.Программирование!Помогите,пожалуйста!!!
Из заданной строки получить новую,удалив все буквы латинского алфавита.

var st1,st2:string; i:integer;beginwriteln('Введите строку:');readln(st1);st2:='';for i:=1 to length(st1) do if not(st1[i] in ['A'..'Z','a'..'z']) then st2:=st2+st1[i];writeln(st2);end.Пример:Введите строку:Primer строки (слон, begin, end, кенгуру). строки (слон, , , кенгуру).