Inversor de numero

{ paulogp }
Program Peda_03; {Inversor de numero}

Uses
    WinCrt;

Var
    P,Numero: Longint;
    Tecla: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Inversor de numero!');
        WriteLn('~~~~~~~~~~~~~~~~~~~');
        WriteLn('Programado por: Paulo G.P.');
        WriteLn;
        WriteLn;
        Write('Introduza um numero inteiro: ');
        ReadLn(Numero);
        P:=0;
        While Numero<>0 do
        Begin
            P:=P*10+(Numero mod 10);
            Numero:=Numero div 10;
        End;
        Write('O seu numero invertido é',' ',p);
        WriteLn;
        WriteLn;
        Write('Repetir o programa (s/n)? ');
        Tecla:=ReadKey;
    Until (Tecla='N') or (Tecla='n');
    DoneWinCrt;
End.