Pascal/Turbo Pascal - Pulse <INTRO> para continuar

Programa Pausa;

Uses

    Crt;

Const

   MaxLin = 20;    {La pausa se genera cada 'MaxLin' líneas desplegadas}

Var

    Index :Word;   {Contador para la simulación de líneas desplegadas}

    Count :Word; {Va contando línea por línea...}

Pocedure LimpiaTeclado;

    Var

        Ch :Char;

    Begin

        While KeyPressed do Ch := ReadKey;

    End; {LimpiaTeclado}

Procedure LeeTecla;

    Var

        Ch :Char;

    Begin

        LimpiaTeclado;

        Write('Pulse ENTER...');

        Repeat

            Ch := ReadKey;

        Until Ch = #13;

        WriteLn;

End; {LeeTdcla}

{Cuerpo Principal}

Begin

    ClrScr;

    Count := 0;

    For Index := 1 to 100 do

        Begin

            WriteLn(Index, ') Esta es la línea número ', Index);

            Inc(Count);

            If ((Count Mod MaxLin)=0) then LeeTecla;

        End; {For}

End. {Pausa}