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

program PascalGuru;

uses crt;

label 1;

var
  s: string;
  i: integer;

begin
  write('Vvedite stroku [massiv simvolov]: ');
  readln(s);

1:
  for i := 2 to length(s) do
    if s[i - 1] = s[i] then
    begin
      delete(s, i, 1);
      goto 1;
    end;

  writeln('Rezulitat: ', s);

  readln;

end.