Вывести на экран все латинские буквы из строки - Turbo Pascal

Формулировка задачи:

Дана строка. Вывести на экран все латинские буквы из этой строки

Решение задачи: «Вывести на экран все латинские буквы из строки»

Листинг программы

var s : string;
    lot : set of char;
    i   : byte;
    
BEGIN
     lot:= ['A'..'Z', 'a'..'z'];
     WriteLn('Введите строку:');
     Readln(s);
     for i:= 1 to length(s) do
         if (s[i] in lot) then
            Write(s[i]:2);
END.

Объяснение кода листинга программы

Создается переменная s типа string, которая будет хранить введенную пользователем строку.
Создается множество lot типа set of char, которое будет содержать все латинские буквы от A до Z и от a до z.
Создается переменная i типа byte, которая будет использоваться для цикла.
Выводится сообщение Введите строку:.
С помощью функции Readln считывается введенная пользователем строка и сохраняется в переменной s.
Запускается цикл for, который будет выполняться столько раз, сколько символов в строке s.
В каждой итерации цикла проверяется, содержится ли текущий символ из строки s в множестве lot.
Если символ содержится в множестве lot, то он выводится на экран с помощью функции Write, при этом используется формат записи s[i]:2, который указывает, что нужно вывести символ с двукратным обрамлением кавычками.
После завершения цикла выводится символ новой строки с помощью функции WriteLn.