В строке все последовательности abc замените последовательностями def - Pascal ABC

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

Всем привет. Помогите. Известно, что в начале строки S находится не более 40 латинских букв, за которыми следуют пробелы. Напечатайте эту строку, предварительно преобразовав ее так, как показано ниже, и используя следующий фрагмент программы:

Type
    строка = array [1...80] of char;
Var
    S : строка;

все последовательности abc замените последовательностями def Получилось только ввод символов без пробелов и вывод с пробелами(что не верно)

type
  stroka = array [1..40] of char;
var
s:stroka;
i:integer;
n:integer;
begin
  write ('Vvedite kolichestvo elementov (1..40)=');
  readln (n);
 
  writeln ('Vvedite bukvi latinskogo alfavita (bez probelov)=');
  for i := 1 to n do
  read (s[i]);
 
  writeln('Ishodnay stroka');
  for i := 1 to n do
  write (s[i],' ');
 
  writeln;
 
  writeln('Konechnay stroka');
for i:=1 to n do
  begin
    if (s[i]='a')then
      if (s[i+1]='b') then
        if(s[i+2]='c') then
      begin
        s[i]:='d';
        s[i+1]:='e';
        s[i+2]:='f';
      end;
    write (s[i],' ');
  end;
end.

Решение задачи: «В строке все последовательности abc замените последовательностями def»

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

type
  stroka = array [1..40] of char;
 
var
  s: stroka;
  i: integer;
  n: integer;
 
begin
  write('Vvedite kolichestvo elementov (1..40)=');
  readln(n);
  
  writeln('Vvedite bukvi latinskogo alfavita (bez probelov)=');
  for i := 1 to n do
    read(s[i]);
  
  writeln('Ishodnay stroka');
  for i := 1 to n do
    write(s[i], ' ');
  writeln;
  writeln('Konechnay stroka');
  for i := 1 to n - 2 do
  begin
    if (s[i] = 'a') and (s[i + 1] = 'b') and (s[i + 2] = 'c') then
    begin
      s[i] := 'd';
      s[i + 1] := 'e';
      s[i + 2] := 'f';
    end;
  end;
  for i := 1 to n do  
    write(s[i], ' ');  
end.

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

Создаётся тип данных stroka, который представляет собой массив из 40 символов типа char.
Создается переменная s типа stroka.
Создается переменная i типа integer.
Создается переменная n типа integer.
Выводится сообщение с запросом ввода количества элементов от 1 до 40.
Зачитываются символы из ввода пользователя для каждого элемента массива s.
Выводится исходная строка.
Для каждого элемента массива s выводится символ.
Выводится сообщение с запросом ввода количества элементов от 1 до 40.
Для каждого элемента массива s, начиная с индекса 1 и до индекса n-1, происходит проверка: если текущий символ равен 'a', а следующий символ равен 'b', а следующий за ним символ равен 'c', то происходит замена текущего символа на 'd', следующего за ним символа на 'e', а следующего за ним символа на 'f'.
Для каждого элемента массива s выводится символ.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.
Выводится исходная строка.
Выводится сообщение Konechnaya stroka.