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
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