Встроке символов произвольной длины выбрать только буквы и вывести их на экран паскаль

uses crt;

var s:string;i:integer;

begin

read(s);

for i := 1 to length(s) do begin

if (s[i] >= 'a') and (s[i] <= 'z') then write(s[i]);

if (s[i] >= 'A') and (s[i] <= 'Z') then write(s[i]);

end;

end.