Необходимо разбить список на 2

type
    TPointerFootballRecord = ^Football_RecordType;
     
    Football_RecordType = record  
      Name      : string;
      WasBefore : boolean; 
      NextFootball  : TPointerFootballRecord;  
    end;
 
 
var
  FirstFootball, LastFootball : TPointerFootballRecord;  
  f : text; 
  ocher11, ocher2: TPointerFootballRecord;
  kol: integer;
   s:string;
  
procedure ReadFileToList (var FFootball, LFootball : TPointerFootballRecord  );
var
  p : TPointerFootballRecord;  
  SName : string;
begin
  assign(f,'name.txt');
  reset(f);
  kol:=0;
  while Not Eof(f) do begin
    Readln(f, SName);
 
    
    if SName<>'' then 
    begin
      New(p);
      
 
      if FFootball=nil then
        FFootball := p
      else       
 
        LFootball^.NextFootball := p;
        
      p^.Name   := SName;
      p^.WasBefore := false; 
      p^.NextFootball  := nil;  
      LFootball := p;
      
          kol:=kol+1;
      
      
      
    end;
  end;
  close(f);
end;  
 
 
 
 
 
 
 
procedure PrinFootballList (var FFootball, LFootball : TPointerFootballRecord  );
var
   CurrFootball :  TPointerFootballRecord;
   i:integer;
begin
  if FFootball = nil then Exit;
     CurrFootball := FFootball;
     while CurrFootball <> nil do
     begin
      WriteLn(CurrFootball^.Name);
       CurrFootball := CurrFootball^.NextFootball;
    end;
   WriteLn('Количество имен:',kol);
 
end;
  
begin
  FirstFootball := nil;
  LastFootball  := nil;
  ReadFileToList(FirstFootball, LastFootball);
  PrinFootballList(FirstFootball, LastFootball);
end.