type
    Pavtor=^book;
    book=record
    name:string;
    next:pavtor;
    end;

    Pbook=^allbook;
    allbook=record
    number:pavtor;
    name:string[10];
    next:pbook;
    end;

    filex=file of pbook;

procedure open(var pr:pbook);
var pp,last,nach:pbook;
   ppp,lastt:pavtor;
   fil1:filex;
   fil2:text;
   s,x:string;
   i:integer;
begin
clrscr;
writeln('Vvedite name of file');
readln(s);
assign(fil1,s);
reset(fil1);
if pr<>nil then pr:= nil;
while not eof(fil1) do
begin
  new(pp);
  read(fil1, pp);
  pp^.next := nil;
  if pr = nil then pr := pp else last^.next := pp;
  last := pp;
end;
i:=1;
nach:=pr;
while assigned(pr^.number) do
      begin
           assign(fil2,pr^.name);
           reset(fil2);
           pr^.number:=nil;
           while not eof(fil2) do
                 begin
                      new(ppp);
                      x:='';
                      while x[i]<>' ' do
                      begin
                      x:=x+x[i];
                      i:=i+1;
                      end;
                      ppp^.name:=x;
                      i:=i+1;
                      if pr^.number= nil then
                                     pr^.number:= ppp
                                         else
                      lastt^.next:=ppp;
                 end;
           close(fil2);
           pr^.number:=pr^.number^.next;
      end;
pr:=nach;
end;

Pbook=^allbook;
allbook=record
 number:pavtor;
 name:string[10];
 next:pbook;
end;

filex=file of pbook;