Напечатать все буквы, входящие в текст по одному разу - Pascal (12340)

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

дан текст из строчных лотинских букв,за которыми следует точка.напечатать все буквы,входящие в текст по одному разу.

Решение задачи: «Напечатать все буквы, входящие в текст по одному разу»

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

var sText:string; letters :set of char; i,L:Integer; ch:char;
begin
    write('Input some text: ');
    readln(sText);
    L := Length(sText);
    letters := [];
    for i:=1 to L do begin
        Include(letters, sText[i]);
    end;
    writeln('Text has this letters:');
    for i:=0 to 127 do begin
        ch := Chr(i);
        if (ch in ['A'..'Z','a'..'z']) and (ch in letters) then write(ch);
    end;
    writeln;
    readln;
end;

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

Данный код написан на языке Pascal и выполняет следующую задачу: печатает все буквы, входящие в текст, по одному разу.

В начале кода объявляются переменные: sText - строка, в которую будет записан введенный пользователем текст; letters - множество символов, которое будет содержать все буквы из текста; i, L - целые числа, используемые для итерации по тексту и его длине; ch - символ, который будет проверяться на принадлежность к буквам.
Затем происходит чтение текста с помощью функции readln и сохранение его в переменной sText.
Далее вычисляется длина текста с помощью функции Length и сохраняется в переменной L.
Создается пустое множество letters, которое будет содержать все буквы из текста.
Запускается цикл for, который проходит по каждому символу текста от 1 до L. Внутри цикла каждый символ добавляется в множество letters с помощью функции Include.
После завершения цикла выводится сообщение о том, какие буквы есть в тексте. Для этого используется цикл for, который проходит по каждому симвосту от 0 до 127 (так как символы представлены числами от 0 до 127). Если символ является буквой и еще не был напечатан, то он выводится на экран.
В конце кода вызывается функция readln для чтения нового ввода и цикл завершается.