Напечатайте заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры - Pascal ABC

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

Мы ведь "ОДНА БОЛЬШАЯ СЕМЬЯ", помогите сделать!!! Напечатайте заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры. Заранее, спасибо!!!

Решение задачи: «Напечатайте заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры»

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

Var
  ss : set of Char;
  St : String;
  n  : Integer;
 
Begin
  ss:=[]; n:=1;
  Readln(St);
  While n<=Length(St) do 
  Begin
    If not (St[n] in ss) then
    Begin
      Include(ss,St[n]);
      Write(St[n]);
    End;
    Inc(n);
  End;
  Writeln;  
End.

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

В начале объявляются переменные: ss - множество символов, St - строка, n - целое число.
Переменная ss инициализируется пустым множеством, а переменная n принимает значение 1.
Считывается строка St с помощью функции Readln.
Запускается цикл While, который будет выполняться до тех пор, пока n меньше или равно длине строки St.
В цикле проверяется, содержится ли текущий символ из строки St в множество ss. Если нет, то он добавляется в множество ss с помощью функции Include.
Если текущий символ не содержится в ss, то он выводится на экран с помощью функции Write.
После завершения внутреннего цикла значение переменной n увеличивается на 1 с помощью функции Inc.
По завершении внешнего цикла выводится символ новой строки с помощью функции Writeln.