Друзья, нужна в составлении программы на паскаль вводим строчку (буквы, цифры, пробелы) с клавиатуры и программа должна найти рядом стоящие символы одинаковые и заменить их пробелом. если к примеру у нас вся строчка из одинаковых символов - то результат - это пустая строчка (одни пробелы) желательно написать с табуляцией, чтобы понятна была структура проги

//Pascal ABC.NET 3.1 сборка 1219

Var
 s,s1:string;
 i,n:integer;
 begin
 readln(s);
 i:=1;
n:=length(s);
while i<=n-1 do
  if s[i]=s[i+1] then
   begin
    s1:=s1+' ';
    i:=i+2;
   end
   else
   begin
    s1:=s1+s[i];
    inc(i);
   end;
s:=s1;
writeln(s);
 end.

Пример ввода:
2 is II, ASCII is encoding.
Пример вывода:
2 is  , ASC  is encoding.