Удалить из введённой строки все удвоенные подряд стоящие символы — Pascal(Паскаль)

program Project1;
 
var
  i, Len : Integer;
  S : String;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
    Len := Length(S);
 
    for i := Len - 1 downto 1 do
      if S[i] = S[i + 1] then
        Delete(S, i, 2)
    ;
 
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.