Programacion en delphi

[CarlosReyesg]

antes de todo deberías de leer la guía de estilo para postear código
el código de las condiciones están malas según entiendo con lo que quieres hacer

si me permites darte un consejo
todos tenemos nuestros propios estilo
pero cuando escribas código ten el cuidado de escribir de una formas mas adecuada
se que es un problema de novatos.

y este mismo consejo les doy a mis alumnos en la programación
"escriban código pensando que otros lo puedan leerlo y entenderlo"

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
   if espositivo then
   begin
      writeln('El numero es positivo.');
   end
   else
   begin
      writeln('El numero es cero.');
   end;
   readln
end.

saludos