Напечать все слова оставив только первое появление каждой буквы - Turbo Pascal

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

Дана строка в которой от 1 до 30 слов в каждом из которых от 1 до 5 латинских строковых букв между соседними словами запятая после последнего точка Напечать все слова оставив только первое появление каждой буквы Вот например есть слово 'Firelord' должно остаться 'Firelod'

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

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

Function OnlyFirstCharInclude(S : String) : String;
Var
  i  : Byte;
  ss : String;
Begin
  ss:='';
  For i:=1 to Length(S) do
    If Pos(S[i],ss)=0 then ss:=ss+S[i];
  OnlyFirstCharInclude:=ss;
end;
Var St : String;
Begin
  St:='firelord,baraban,паровоз,длинношеее,животное,жираф.';
  While Pos(',',St)>0 do
  Begin
    Writeln(OnlyFirstCharInclude(Copy(St,1,Pos(',',St)-1)));
    Delete(St,1,Pos(',',St));
  end;
  Writeln(OnlyFirstCharInclude(Copy(St,1,Pos('.',St)-1)));
end.

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

Создается функция OnlyFirstCharInclude, которая принимает строку S в качестве параметра и возвращает новую строку, в которой каждое слово начинается с первой буквы, а все последующие буквы пропускаются. В функции объявлены две переменные: i типа Byte для счетчика символов и ss типа String для накопления строки.
Создается переменная St типа String, которая содержит строку для обработки. Значение St устанавливается равным 'firelord,baraban,паровоз,длинношеее,животное,жираф.'.
Запускается цикл While, который продолжается до тех пор, пока запятая ,' не встречается в строкеSt`.
Внутри цикла вызывается функция OnlyFirstCharInclude для каждого подстроки Copy(St,1,Pos(',',St)-1). Это дает нам строку, в которой все символы после первой запятой пропускаются. Результат этой строки выводится на экран с помощью функции Writeln.
После окончания внутреннего цикла While вызывается функция OnlyFirstCharInclude для последней подстроки Copy(St,1,Pos('.',St)-1). Эта строка содержит только последнее слово из исходной строки St, и этот результат также выводится на экран.
Конец программы.