Вводится строка в которой много пробелов преобразовать строку что бы не было пробелов в конце а в остальные пробелы(которые слиты) заменяются на 1, в АБС ее можно плиз?? Опции

[Cardinal]

оч надо

[IUnknown]

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

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

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