Ante todo una enorme disculpa debí haber leído la guía de estilo hago un llamado a su tolerancia por favor disculpe mi imprudencia
Es un enorme placer ser asistido con su generosa ayuda les vuelvo a reiterar mi agradecimiento ya corregí el error del código del código
en cuestión fue un problema de encadenamiento de condicionales ya lo solucione
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
begin
if espositivo then begin
writeln('El numero es positivo.');
end
else
begin
writeln('El numero es cero.');
end;
end;
readln
end.