[Rosenkrantz]

Код:

function  ReverseStr(const S: String): String;
var
  L, i: Integer;
begin
  L := Length(S);
  Result := '';
  for i := 1 to L do
    Result := Result + S[L - i + 1];
end;