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

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

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

var i, l: integer;
    s1, s2: string;
    p: char;
begin
   write('ENTER: ');
 //  readln (s1);
   s1:='aaffccbbgaafcbga';
   writeln();
   l := length(s1);
   s2 := s1[1];
   p := s1[1];
    for i := 1 to l do
     if p <> s1[i] then
      begin
       s2 += s1[i];
       p := s1[i];
      end;
   writeln('filter:',' ', s2);
   readln();
end.     

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

ENTER:
filter: afcbgafcbga