Pascal/Turbo Pascal - pascal

Hola foreros, necesito ayuda con un ejercicio de programacion, trata de elaborar un algoritmo que: lee dos numeros enteros y nos escribe todos los numeros enteros que hay entre dichos numeros

Hola Enrique.
El codigo fuente de dicho programa es muy cortito: Se declaran las dos variablers correspondientes al numero mayor y al numero menor y una tercera correspondiente al control del FOR.

var
NumMyor, NumMenor, i integer;

begin
write('Introduce numero meyor y numero menor: ');
readln(NumMayor,NumMenor);

For i := NumMenor+1 to NumMayor-1 do
writeln('Numero ',i)
end.