Задание 9 Урок 17

Задание 9 Урок 17

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:

для строки:

b5ghh55788oooggtttttt

вернуть:

b5gh578ogt

var s, result: string;
    i: integer;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  result := s[1];

  for i:=2 to length(s) do // обходим символы строки
  begin
    if (s[i] <> s[i-1]) then  // если символ не повторяется то складываем его в результат
      result += s[i];
  end;

  writeln(result);
  readln();
end.   

консоль:

vvedite proizvolnuy stroku:
b5ghh55788oooggttttt
b5gh578ogt