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

Строки как одномерные массивы

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

var m,n: string;
    i: integer;
begin
  //m:='5533g';
  writeln('write string to trim');
  readln(m);
  for i:=1 to length(m) do
    if m[i] <> m[i+1] then
      n := n + m[i];
  writeln(n);
  readln();
end.

//write string to trim
//sooooooooooooooooooooooooofun
//sofun