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

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

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

• для строки:
  ?

  1

  5533g

  вернуть:

  ?

  1

  53g

• для строки:
  ?

  1	b5ghh55788oooggtttttt

  вернуть:

  ?

  1	b5gh578ogt

var i, l: integer;
    s1, s2: string;
    p: char;
begin
   write('Введите строку: ');
   readln(s1);
   writeln();
   l := length(s1);
   s2 := s1[1];
   p := s1[1];
    for i := 2 to l do
     if p <> s1[i] then
      begin
       s2 += s1[i];
       p := s1[i];
      end;
   writeln('Отфильтрованная строка: ', s2);
   readln();
end.