Файлы, списки.

program form;
uses crt;
const n=100;
type
   psymb = ^ symb; 
   symb = record 
    c    : char;  
    next : psymb; 
    prev : psymb; 
   end;
 
 
 {read symbol and load it in the list}
 procedure readit_smbl  (var f:text; var last:psymb; var endoff: boolean);
  var
   cha:psymb;
  begin
   if not(eof(f)) then
    begin
     new(cha);           {creation of symbol}
     read (f,cha^.c);    {load into it the letter from file}
     last^.next := cha;
     cha^.prev := last;  {dobavlyaem v spisok}
     last := cha;
     endoff:=false;
    end
     else
      endoff:=true;
 
  end;
 
 {reading of strigs}
 procedure readit_str  (var f:text; var last:psymb; var endoff:boolean);
  var
   i,k,jo:integer;
   b: boolean;
  begin
   b:=true;
   k:=0;
   jo:=0;
   readln;
   while b do {read symbols from file}
    begin
     readit_smbl(f,last,endoff);
     k := k + 1;
      if ((ord(last^.c)=10) or endoff) then
         b := false;
    end;
    writeln('V stroke ',k, ' simvolov');
  end;
 
 {reading of pages}
 procedure readit_pg (var f:text; last:psymb;h:integer; var endoff:boolean);
  var
   j: integer;
  {schitaem h strok iz faila}
  begin
  for j:=1 to h do
    begin
     readit_str(f,last,endoff);
    end;
  end;
 
{main proga}
var
 
 fn: string;
 f: Text;
 i,nl,nmb,h : integer;
 first,last : psymb;
 c:char;
 endf,inp:boolean;
 
begin
 
  clrscr;
  new(first);
  first^.c:=' ';
  first^.prev:=nil;
  last := first;
  first^.next := last;
  last^.prev := first; {the list of symbols cr8ed}
  endf:=false;
  nl:=0;
  fn:='big.txt';
  Assign(f,'big.txt');
  Reset(f); {zagruzka iz faila}
   while not(endf) do  begin
     readit_str (f,last,endf);
     nl := nl+1;
    end;
  Close(f);
  clrscr;
  writeln;
  writeln('File ',fn, ' loaded.');
  str(nl,fn);
  writeln('The count of loaded strings ',fn);
  readln;
  writeln;
  writeln('Введите кол-во строк на одной странице');
  readln(h);