Из данного текста удалить все удвоенные буквы - Free Pascal

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

Из данного текста удалить все удвоенные буквы(например, аккумулятор, нужно убрать КК)

Решение задачи: «Из данного текста удалить все удвоенные буквы»

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

var
  s:widestring;
  i:dword;
begin
  writeln('input text:');
  readln(s);   
  i:=0;
  while i<length(s) do
  begin
    if s[i]=s[i+1] then delete(s,i,2);
    inc(i);
  end;
  writeln(s);
  readln;
end.

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

В данном коде задача состоит в удалении всех удвоенных букв из введённого текста.

Объявлены две переменные: s типа widestring и i типа dword.
Вводится текст с помощью функции readln(s).
Переменная i инициализируется значением 0.
В цикле while происходит проверка каждого символа в тексте. Если текущий символ равен следующему за ним, то с помощью функции delete(s,i,2) удаляются два символа.
Переменная i увеличивается на 1.
После завершения цикла выводится изменённый текст с помощью функции writeln(s).
Запускается функция readln для чтения команды или ввода данных.
Код завершается.