Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым - Free Pascal

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

Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все символы, совпадающие с первым в строке S (также и первый символ). С помощью данной функции у каждой строки из введенного набора удалить все символы, совпадающие с первым.

Решение задачи: «Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым»

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

function DelFirst(s: String): String;
var j: Integer;
begin
  for j:=Length(s) downto 1 do if s[1]=s[j] then Delete(s,j,1); DelFirst:=s;
end;
var s: String;
begin
  ReadLn(s);
  while s<>'' do begin
    WriteLn(DelFirst(s));
    ReadLn(s);
  end;
end.

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

Создается функция DelFirst(s: String): String
В функции объявляется переменная j: Integer
В функции используется цикл for, который начинается с j := Length(s) и выполняется до тех пор, пока j > 1
Внутри цикла проверяется, равен ли первый символ строки s символу, находящемуся на позиции j. Если это так, то вызывается функция Delete(s,j,1), которая удаляет символ на позиции j из строки s.
После выполнения цикла, функция возвращает строку s.
В основной части программы, с помощью функции ReadLn(s) считывается строка s с консоли.
Затем, в цикле while, который выполняется до тех пор, пока s не пустая строка, выводится значение функции DelFirst(s) на консоль.
После каждой итерации цикла, с помощью функции ReadLn(s) считывается следующая строка s с консоли.
В конце программы нет никаких действий.