Delphi Замена в строке нескольких пробелов подряд на один пробел и удаление знаков “+” перед положительными числами

[referent]

Для заданного предложения выдать эквивалентное ему предложение, полученное путем замены нескольких подряд следующих пробелов одним пробелом и удаления знаков “+” перед положительными числами.

Народ, кто может дать функцию (Delphi), получающую строку и возвращающую другую, отформатированную согласно заданию?

[ZX Spectrum-128]

По первой половине задания
http://www.programmersforum.ru/showthread.php?t=29366

[Аватар]

удаления знаков “+” перед положительными числами

Нужно конкретное определение положительніх чисел в текстовой строке
Где в следующих строках положительное число:
abc+123khf
-+1JJ
JJ +1 HH
ООО + ООО
+++ 2344

Заменить двойные пробелы на одинарные можно так

function ReplaceSpace(Value: String): String;
begin
  Result:=Value;
  while Pos('  ',Result)>0 do Result:=StringReplace(Result,'  ',' ',[rfReplaceAll]);
end;

[referent]

function FormatString(str : string) : string;
var
  i : integer;
begin
  result := str;
  while pos('  ', result) > 0 do
   delete(result, pos('  ', result), 1);
  for i := 1 to length(result) - 1 do
    begin
      if result[i] = '+' then
        if (result[i + 1] in ['0'..'9']) then
          delete(result, i, 1);
    end;
end;

Всем спасибо, сделал так.