Pascal/Turbo Pascal - SUMA DE LOS n PRIMEROS TERMINOS

nO ENCUENTRO EL ERROR PARA QUE EL DENOMINADOR SE SUME 1. ESPERO AYUDA

La condición esta mal planteada, el denominador se inicia en un y luego haces la repetición condicionando mientras 1 sea mayor que 1, por eso no entra el bucle, debería asignarse que entre al bucle mientras el denominador sea menor que N e incrementar denominador de uno en uno. Espero te sirva esta modificación:

Program SUMA_DE_N;
Uses crt;
Var n: INTEGER;
NUMERADOR: INTEGER;
DENOMINADOR:INTEGER;
Begin
Write('INGRESAR n: ');
Read(n);
NUMERADOR:=1;
DENOMINADOR:=1;
While (Denominador<n) do
Begin
Writeln('El siguiente: ',Numerador,'/',Denominador);
Denominador:=Denominador + 1;
End;
Readkey;
End.