Pascal/Turbo Pascal - Leer Linea a linea un fichero

Program Lee_Imprime;

Uses

    Dos;

Var

    Ch :Text;

    S   :String;

Begin

    {Verifica si se especificó al gún parámetro}

    If (ParamCount>0) then

        Begin

            Assign(Ch, ParamStr(1));

            {Verifica si existe el archivo...}

            {$I-}

                Reset(Ch);

            {$I+}

            If (IOResult>0) then

                Begin

                    WriteLn('Imposible leer el archivo "', ParamStr(1), '"'#7);

                    Halt(1);

                End; {If}

            While Not EOF(Ch) do    {Mientras no sea fin de archivo...}

                Begin

                    ReadLn(Ch, S);

                    WriteLn(S);

                End; {While}

            Close(Ch);

        End

    Else

        Begin

            WriteLn('Debe especificar el archivo a mostrar.');

            WriteLn('Ej:', ParamStr(0), ' C:\AUTOEXEC.BAT');

            WriteLn;

        End; {If}

End.