Написать программу поиска и вывода всех пар одинаковых соседских символов, если такие пары ссуществуют. - Pascal ABC

Дана строка. Написать программу поиска и вывода всех пар одинаковых соседских символов, если такие пары ссуществуют.

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

var
s: string;
i: integer;
begin
  readln(s);
  for i:=1 to length(s)-1 do
    if s[i] = s[i+1] then
      writeln(s[i], ' ', s[i+1]);
end.

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

В данном коде происходит следующее:

Объявляются переменные s и i типа string и integer соответственно.
Считывается строка s с помощью функции readln().
Запускается цикл for, который проходит по всем элементам строки s, начиная с индекса 1 и до длины строки минус 1.
Внутри цикла сравниваются текущий и следующий символы строки s. Если они равны, то выводится пара символов, используя функцию writeln().
После завершения цикла, программа завершается.