Не оставьте в беде:прогу без процедур надо сделать! Дана строка символов,удалить все повторяющиеся символы,идущие подряд. Например: 'гаага' будет 'гага'. Заранее благодарю.
var s: string;
i: integer;
begin
writeln('введите строку');
readln(s);
for i:=length(s) downto 1 do
begin
if s[i]=s[i-1] then delete(s,i,1);
end;
writeln(s);
end.