Programacion en delphi

[serka]

Hola buenos días, tardes o noches

Llevo ya algún tiempo aprendiendo programación por mi cuenta desde cero y estoy algo avanzado en programación estructurada principalmente con delphi o pascal (como lo quieran nombrar) y me gustaría compartir mis conocimientos así mismo solicitar su amable asistencia cuando lo requiera.

por ejemplo estoy atorado en un programa con delphi 7 en una estructura condicional de hecho son dos estructuras en una el problema es que cuando es falsa la condición me saltan dos mensajes el condigo fuente es este:

Código Delphi [-]
var
numero:Integer;
espositivo:Boolean;
esnegativo:Boolean;
begin
    // programa principal
    write('Escriba un numero: ');
    readln(numero);
    esnegativo:= (numero < 0);
    espositivo:= (numero > 0);
        if esnegativo then
        begin
            writeln('El numero es negativo.');
        end else begin
        end; if espositivo then begin
            writeln('El numero es positivo.');
        end else begin
            writeln('El numero es cero.');
        end;
        readln
end.