Каждую букву Y в строке заменить на две буквы ZZ - Turbo Pascal

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

Ввести строку с клавиатуры. В этой строке каждую букву Y заменить на две буквы ZZ

Уже сам сделал. Программа:

uses crt;
var x:string;
    i:byte;
begin  clrscr;
    write('Введите строку: ');
    readln(x);
    i:=0;
    while i<Length(x) do
    begin
      inc(i);
      if x[i]='Y' then
      begin
        Delete(x,i,1);
        Insert('ZZ',x,i);
      end
    end;
    writeln('Полученная строка: ',x);
    readln;
end.

Решение задачи: «Каждую букву Y в строке заменить на две буквы ZZ»

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

var
  s: String;
  i: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  i:=Pos('Y',s);
  while i>0 do begin
    Delete(s,i,1); Insert('ZZ',s,i);
    i:=Pos('Y',s);
  end;
  WriteLn(s);
end.

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

В начале объявляются переменные s и i типа String и Integer соответственно.
Затем идет команда Write, которая выводит на экран сообщение «Введите строку: », а затем считывает строку в переменную s с помощью функции ReadLn.
Далее идет переменная i типа Integer, которая инициализируется значением 0.
Затем начинается цикл while, который выполняется до тех пор, пока значение переменной i больше 0.
Внутри цикла удаляется символ 'Y' из строки s, для этого используется функция Delete, которая удаляет символ 'Y' из строки s, начиная с позиции i и длиной 1.
Затем в строку s вставляется символ 'ZZ' с помощью функции Insert, которая вставляет символ 'ZZ' в строку s, начиная с позиции i.
После выполнения цикла значение переменной i обновляется, чтобы проверить следующую позицию символа 'Y'.
После завершения цикла выводится обновленная строка s с помощью команды WriteLn.