Не оставьте в беде:прогу без процедур надо сделать! Дана строка символов,удалить все повторяющиеся символы,идущие подряд. Например: 'гаага' будет 'гага'. Заранее благодарю.

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.

Например, "122333444455555" станет "12345".. так?