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

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

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

var s, n:string; i:integer;
begin
  writeln('Vvedite stroky');
  readln(s);
  for i:=1 to length(s)-1 do
    if s[i]<>s[i+1] then
      n+=s[i];
  writeln('poiycheno: ',n);
  readln();
end.