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

Var st1,st2:string; i:integer;
begin
writeln('Введите строку:');
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, кенгуру).
 строки (слон, , , кенгуру).