оч надо

Если на современном PascalABC (который .NET) - то вот так:

uses System.Text.RegularExpressions;
var s : string;
begin
  readln(s);
  writeln(TrimRight(Regex.Replace(s, '\s{2,}', ' ')));
end.

, или ищи по форуму, как это делается на обычном паскале и пытайся перенести на ABC...