Pascal/Turbo Pascal - Programa en pascal que detecte si un numero introducido desde el teclado es positivo o negativo

uses crt;

var

    opc:char;

    numero:integer;

begin

    clrscr;

    opc:=' ';

    while opc <> 'n' do begin

        write('Ingrese numero: ');

        readln(numero);

        if numero > 0 then

            writeln('Positivo')

        else if numero < 0 then

            writeln('Negativo')

        else

            writeln('El numero es cero');

        write('Continuar s/n: ');

        readln(opc);

    end;

end.