Друзья, нужна помощь в составлении программы на паскаль

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

Желательно написать с табуляцией, чтобы понятна была структура проги

у меня вот возник вопрос по алгоритму, если подряд несколько одинаковых

а нет, всё разобралась, спасибо огромное

Да, в первой версии, которую я сюда выкладывал, была баг если просто ввести нечётное количество одинаковых символов. Сейчас уже поправил.

Не за что.

*был. В своём репертуаре.

//Pascal ABC.NET 3.1 сборка 1219Var 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.