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

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.

мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,

хай