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

Предыдущий
вопрос Следующий
вопрос

program ChooseLetters;

var
text, letters: string;
i: integer;

begin
writeln('Введите строку символов:');
readln(text);

letters := '';

for i := 1 to Length(text) do
begin
if (text[i] >= 'A') and (text[i] <= 'Z') or (text[i] >= 'a') and (text[i] <= 'z') then
letters := letters + text[i];
end;

writeln('Буквы в строке:');
writeln(letters);
end.