Дано предложение. Удалить небуквенные символы в нем — Pascal(Паскаль)

var
i:byte;
s:string;
begin
write('Введите текст:');
readln(s);
for i:=length(s) downto 1 do
if (not(s[i] in ['a'..'z']))and (not(s[i]in ['A'..'Z'])) then delete(s,i,1);
write('Изменённый текст: ',s);
readln;
end.