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

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

program PrintLetters;

var
inputString: string;
i: integer;

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

// Печатаем только буквы
writeln('Буквы в строке:');
for i := 1 to length(inputString) do
begin
if (inputString[i] >= 'a') and (inputString[i] <= 'z') or
(inputString[i] >= 'A') and (inputString[i] <= 'Z') then
write(inputString[i]);
end;
end.