Inversor e identificador de um número

{ paulogp }
{ mac os 7 }
program Ada04p;

uses
    MemTypes, QuickDraw, OSIntf;

var
    n, ncopia, inverso, digito: integer;
    fim: string;

begin
    repeat
        clearscreen;
        writeln('Programa: Inversor e identificador de um número.');
        writeln;
        write('Introduza o valor de N: ');
        readln(n);
        ncopia:= n;
        inverso:= 0;
        while ncopia <> 0 do
        begin
            digito:= ncopia mod 10 ;
            inverso:= inverso * 10 + digito;
            ncopia:= ncopia div 10;
        end;
        writeln;
        writeln('Número invertido: ',Inverso);
        writeln;
        if n = inverso then writeln('Capicua!') else writeln('Não é capicua!');
        writeln;
        writeln;
        write('Repetir programa (S/N): ');
        readln(fim);
        uprstring(fim, true);
        until fim = 'N';
end.