TURBO PASCAL:Учебное пособие. Терёхин В.В. - 125 стр.

if IQResult <> 0 then
   begin
      Writeln('Ошибка при открытии файлов');
      Halt;
   end;
{находим количество строк в первом файле}
L:= 0;
While not Eof(fl) do
   begin
      Readln(fl);
      inc(L);
   end;
{находим количество строк во втором файле}
К:= 0;
While not Eof(f2) do
   begin
      Readln(f2);
      inc(K);
   end;
Close (fl) ;
Close (f 2) ;
Reset (fl) ;
Reset (f2) ;
if К <> L then
   begin
      Writeln('файл ', namel, ' - ', L, ' строк' );
      Writeln('файл ', namе2, ' - ', К, ' строк’ );
   end
else
   begin
      K:= 0;
      While not Eof(fl) do
        begin
              Readln(fl, SI) ;
              Readln(f2, S2); Inc(K);
                                                      125