Дана строка. Заменить все удвоенные буквы знаком восклицания.

program zamena_povtor_znakov;
uses crt;
Var stroka:string;  i:integer; {объявляем переменные}
begin
  clrscr;                      {очистка экрана}
  write('заполните строку:');
  Read(stroka);                {вводим строку}
  writeln;
For i:= 1 to length(stroka) do
If stroka[i]= stroka[i-1] Then {ищем повторяющиеся знаки}
   begin
   stroka[i]:= '!' ;           {заменяем повт. знак}
   delete(stroka,i-1,1);       {удаляем первый повтор. символ}
   end;  
write('заменим повторяющиеся знаки на "!" : ',stroka);
   {выводим на печать преобразованную строку}
 
end.

for i:=length(stroka) downto 1 do

Program Dvoyniye;
uses Crt;
var s: string; i, count, k: integer;
begin
       write('Введите строку - ');
       readln(s);
       
       count := 0;
       i := 1;
    while i < length(s) do begin
    if (s[i] = s[i+1]) then begin
       k := Pos(concat(s[i],s[i+1]), s);
       delete(s, k, 2);
 
       insert('!', s, k);
       count :=count + 1;
    end;
        i := i+1;
    end;
        writeln(count);
        writeln(' ',s);
end.

Program Dvoyniye;
uses Crt;
var s: string; i, count, k: integer;
begin
       write('Введите строку - ');
       readln(s);
       
       count := 0;
       i := 1;
    while i < length(s) do begin
    if (s[i] = s[i+1]) then begin
       k := Pos(concat(s[i],s[i+1]), s);
       delete(s, k, 2);
 
       insert('*', s, k);
       count :=count + 1;
    end;
        i := i+1;
    end;
        writeln(count);
        writeln(' ',s);
end.