Задача на СТРОКИ Pascal

[Rus5]

Ввести строку, все удвоенные буквы заменить одинарными, взаранее благодарен.

[Sparkman]

var s:string;
    i:integer;
begin
     readln(s);
     i:=1;
     while i<=length(s) do
     begin
          if s[i]=s[i+1] then s:=copy(s,1,i)+copy(s,i+2,length(s));
          inc(i);
     end;
     writeln(s);
     readln;
end.

[Serge_Bliznykov]

ну, это несерьёзно!

i<=length(s)
...
if s[i]=s[i+1]

при i= Lengths(s) индекс i+1 выйдет за пределы строки!

тогда уже так:

var s : string;
  i : integer;
begin
  s := 'aa1 aa2aa b2bb';
  WriteLn(s);
  for i:=Length(s)-1 downto 1 do
    if s[i+1]=s[i] then Delete(s, i, 1);
  WriteLn(s);
  Readln;
end.

или так

var s : string;
  i : integer;
begin
  s := 'aa1 aaaa b2bb';
  WriteLn(s);
  i:=1;
  while i<Length(s) do begin
    if s[i+1]=s[i] then Delete(s, i, 1);
    inc(i)
  end;
  WriteLn(s);
  Readln;
end.

p.s. внимание. Варианты не равнозначные!
эти мои два варианта ПО РАЗНОМУ обработают ситуацию, когда в строке более 2-х одинаковых символов подряд..

[Sparkman]

вариант с while правильный, с for - нет
и i<length(s) или i<=length(s) нет разницы
и так и эдак работает, разве что во втором случае лишний цикл пройдет

[Rus5]

Всем очень благодарен за помощь)