[lmikle]

Код:

function ReverseStr(S : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(S) Do Result := S[i] + Result;
end;

function ReverseInt(N : Integer) : Integer;
begin
  Result := StrToInt(ReverseStr(IntToStr(N)));
end;