с текстом

[fenix163]

pascal(Delphi)
В тексте слова записаны в обратном порядке. вывести текст в нормальном порядке.Пример: муроФ вотсиммаргорп ьщев.Долдно: Форум программистов вещь.

[GetMax]

Var
  Ish_Str,Buf_Str,Rez_Str:String;
  Buf:Char;
  i,j,k:Byte;
begin
  Readln(Ish_Str);
  Rez_Str:='';
  For i:=1 to Length(Ish_Str) do
  Begin
    If Ish_Str[i] <> ' ' then Buf_Str:=Buf_Str+Ish_Str[i];
    If (Ish_Str[i] = ' ') or (i = Length(Ish_Str)) then
    Begin
      j:=1;
      K:=Length(Buf_Str);
      While j < k do
      Begin
        Buf:=Buf_Str[j];
        Buf_Str[j]:=Buf_Str[k];
        Buf_Str[k]:=Buf;
        Inc(j);
        Dec(k)
      End;
      Rez_Str:=Rez_Str+Buf_Str+' ';
      Buf_Str:=''
    End;
  End;
  Writeln(Rez_Str);
  Readln
End.