Удалить в словах первое вхождение буквы ‘е’, если такое имеется. - Free Pascal

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

3. Удалить в словах первое вхождение буквы ‘е’, если такое имеется.

Решение задачи: «Удалить в словах первое вхождение буквы ‘е’, если такое имеется.»

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

var
  S: string;
  k: integer;
 
begin
  repeat
    Write('Слово: ');Readln(S);
    if S = '' then break;
    for k := 1 to length(S) do 
      if S[k] = 'е' then begin
        Delete(S, k, 1);
        break;
      end;
    Writeln('Новое слово: ', S);
  until false;
end.

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

Объявлены две переменные: S (строка) и k (целое число).
Цикл повторяется до тех пор, пока пользователь не введет пустую строку.
В каждой итерации цикла пользователю предлагается ввести слово.
Если введенное слово пустое, то цикл прерывается.
В каждой итерации цикла проверяется, содержит ли слово букву е.
Если слово содержит букву е, то она удаляется из слова.
После удаления буквы е выводится новое слово.
Цикл продолжается до тех пор, пока не будет введено пустое слово.