Задача 9 урок 17

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

Задача 9 урок 17

var  t: string;
      s: string;
     i: integer;
begin
  writeln('insert a string s ');
  readln(s);
  t := '';  //инициализация пустой стоки t
  if length(s) > 0 then
    t := s[1];   // присвоение первого значения из строки s в строку t
  for i := 2 to length(s) do   // посимвольное заполнение
    if s[i] <> t[length(t)] then  //если нет одинаковых рядом
      t := t + s[i];  // прибавляем следующий элемент в строку t
  s := t;  //по окончании цикла форматированная строка т присвается строке s
  writeln(s);
  readln
end.

Консоль: ввод: b5ghh55788oooggtttttt
вывод: b5gh578ogt