Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ - Pascal ABC

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

Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ. Тема:строки.

Решение задачи: «Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ»

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

var s, slog: string;  sym: char;
    i: integer;
 begin
  write('Г‚ГўГҐГ¤ГЁГІГҐ Г±ГІГ°Г®ГЄГі --> '); readln(s);
  write('Г‚ГўГҐГ¤ГЁГІГҐ ГЁГ±ГЄГ®Г¬Г»Г© Г±Г«Г®ГЈ --> '); readln(slog);
  write('Г‚ГўГҐГ¤ГЁГІГҐ Г*ГіГ¦Г*Г»Г© Г±ГЁГ¬ГўГ®Г« --> '); readln(sym);
 
  i:= length(s);
  while i<>0 do begin
    i:=i-1;
    if (s[i]=slog[1]) and (s[i+1]=slog[2]) then begin
      delete(s,i,2);
      insert(sym,s,i);
     end;
   end;
 
  writeln(s);
  readln;
 end.

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

В данном коде происходит чтение текста из стандартного ввода, затем происходит замена всех вхождений заданного слога на заданный символ. Для этого используется цикл while, который выполняется до тех пор, пока длина строки s не станет равной нулю. Внутри цикла происходит проверка текущего символа строки s и следующего символа строки slog. Если текущий символ равен первому символу строки slog, а следующий символ равен второму символу строки slog, то текущий символ в строке s удаляется, а вместо него вставляется заданный символ. После выполнения всех проверок, измененная строка s выводится на экран.