Дано натуральное число N. Поменять порядок следования цифр в этом числе на обратный — Pascal(Паскаль)

{ Дано  натуральное число  N.  Поменять  порядок }
{ следования  цифр в этом числе на обратный }

uses CRT;
var N, nn:Longint;
BEGIN
    ClrScr;
    Write('N:= '); ReadLn(N);
    nn:= 0;
    while N>0 do begin
        nn:= nn*10+(N mod 10);
        N:= N div 10;
    end;
    WriteLn('N''= ',nn);
    Write(#10#13'< Ok >'); ReadKey;
END.