Поменять порядок следования символов на обратный

[ProAndrew]

Тук такая задача . Написать процедуру которая меняет порядок слежования символо на обратный .

Вот мой код
program project5 ;

uses Crt ;

procedure  naoborot ;
var
  s : string ;
  i , f: integer ;
begin
  ClrScr ;
  ReadLn(s) ;
  Write(s , '    ') ;
  i := length(s)-1 ;
  f := 0 ;
  while i >= 0 do
    begin
      s[f] := s[i] ;
      inc(f) ;
      dec(i) ;
     end ;


  Write(s) ;
  ReadLn ;
end;

begin
  naoborot ;
end.

Код оформляем правильно
Не пашет почемуто . Зарание спасибо .

[alex_fcsm]

for i:=1 to length(s) div 2 do
 begin
  temp:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=temp;
 end;