Процедура в Паскале

[maziLa]

Ребята помогите доделать маленькую процедурку в паскале :

задание такое == все слова в строке записать в обратной последовательности.

вот мой образец, исправте если я ошибся :

procedure word_vice_versa ; (var str, word :string );
var i : byte ;
    n, chk, f, j,temp : integer ;

Begin
  for i:=1 to length (str) do
   begin
    if (str[i] = ' ' ) then
     copy(str,1,(i-1)) := word;
     length(word) := n;
     chk := n div 2 ;
     f:=0;
     for j := 1 to n do
       begin
          temp:= str[i] ;
          str[n] := str[i] ;
          str[i] := temp;
          inc(f) ;
           if f>chk then break ;
       end;
   end;
writeln('Poluchenyy text ==>  ') ; readln(str) ;
End;

Впринципе существует процедура удаления нескольких пробелов между словами , а также пробела в начале строки...

[Fabio]

Вот у меня такой код получился:

procedure word_vice_versa ; (var str: string);
var i , j , n: byte ;
    temp, word, str2: string;

begin
word:='';
str2:='';
for i:=1 to length(str) do
     if str[i]<>' ' then
          word:=word+str[i]
     else
          begin
               n:=length(word);
               for j:=1 to (n div 2) do
                    begin
                         temp:=word[j];
                         word[j]:=word[n-j+1];
                         word[n-j+1]:=temp;
                    end;
               str2:=str2+word;
               word:='';
          end;
writeln('Poluchenyy text ==>  ') ; writeln(str2) ;
end;

На вход - строка, внутри процедуры переворачивается каждое её слово и заносится в Str2.