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

Урок 17 Задача 9:

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

var
  s, n: string;
  i: integer;
begin
  write ('Введите произвольную строку: ');
  readln(s);
    for i:=1 to length(s) do
       if not (s[i] = s[i+1]) then // если следующий символ не равен текущему
         n:= n+s[i];               // записываем текущий символ в новую строку
  for i:=1 to length(n) do         // обходим строку для вывода на экран
    write (n[i]);
  readln();
end. 

Вывод в консоли:

Введите произвольную строку: dddhaalmm
dhalm