Function String_Reverse(S : String): String;

Var
  i : Integer;
Begin
    Result := '';
    For i := Length(S) DownTo 1 Do
  Begin
    Result := Result + Copy(S,i,1) ;
   End;
End;