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

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

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

var  s, S1: string;
i: Integer;
flag: boolean;
begin
 flag:=true;
 writeln('Vvedite stroku');
 readln(s);
 for i:=1 to length(s) do
   begin
   if flag then
     S1:=S1+s[i];
   if s[i]=s[i+1] then
     flag:=false
   else
     flag:=true;
   end;
 writeln(S1);
 readln();
end.