Program VivodFile;

Var
 Tx : Text;
 FilName,Str : String;
 KolStr : Integer;

Begin
 Writeln(’Введите имя НД ’);
 Readln(FilName); {Ввести Имя Набора Данных}
 Assign(Tx,FilName); {Связать Файл с Набором Данных}
 Reset(Tx,FilName); {Открыть Файл для чтения}
 KolStr := 0;
 Writeln(’Содержимое набора’);
 While Not Eof(Tx) do {Пока не конец файла}
 Begin
   Readln (Tx,Str);
   KolStr := KolStr+1;
   Writeln(Str); {вывод на экран}
 End;
 Writeln(’Кол-во строк - ’, kolstr);
 Close(Tx); {Закрыть файл}
End.

---