Pascal/Turbo Pascal - DUDA EN EJERCICIO

A QUIEN PUEDA AYUDARME:

NECESITARIA SABER COMO SE HACE CON UN (FOR) PARA MOSTRAR LOS NUMEROS QUE HAY ENTRE LOS NUMEROS INGRESADOS. A CONTINUACIÓN REDACTO EL EJERCICIO Y ESCRIBI EL CODIGO SALVO EL FOR QUE NO LO SE HACER.
MUCHAS GRACIAS.
SE DEBE REALIZAR UN PROGRAMA QUE PERMITA INGRESAR 2 NUMEROS Y REALIZAR:
1-SI EL 1º ES POSITIVO EL 2º DEBERA SER NEGATIVO Y MOSTRAR LOS Nº ENTRE EL POSITIVO Y EL NEGATIVO
2- SI EL 1º ES NEGATIVO EL 2º DEBERA SER 0 Y MOSTRAR LOS Nº ENTRE EL 0 Y EL NEGATIVO

PROGRAM PARCIAL1EJER2;
USES CRT;
VAR
N1, N2:REAL;
BEGIN
WRITELN('EJERCICIO DE Nº');
N1:=1;
WHILE (N1<>0) DO
BEGIN
WRITELN('INGRESE EL 1º Nº');
READLN(N1);
IF N1>=1 THEN
BEGIN
WRITELN('INGRESE EL 2º Nº NEGATIVO');
READLN(N2);
WHILE (N2>=0) DO
READLN(N2);
END
ELSE
BEGIN
WRITELN('INGRESE 0 COMO SEGUNDO NUMERO');
READLN(N2);
WHILE N2<>0 DO
READLN(N2);
END
END;
READKEY;
CLRSCR
END.

Bueno, sería:

var ind:integer;

N1<N2 ==> for int:=n1 to n2 do HacerAlgo;

N1>N2==> for int:=0 downto n2 do HacerEsto;

Saludos.

El segundo caso está bien, pero el primero no. Según el enunciado N2 es negativo y N1 positivo, o sea N2 < N1, entonces si el for tiene el modificador "to" la variable int sumará a partir de N1 y obviamente nunca alcanzará N2. Por lo tanto...

N1 > N2 ==> for int:=n2 to n1 do HacerAlgo;

¡Epa! Cierto es, perdón.