[icWasya]

Вообще говоря, пишется юнит

Код:

unit
  UnitTeams;
interface
type
  TPerson = record
    FTeam: string[130];
    FCity: string[50];
    FYearOfFoundation: Integer;
  end;

var
  TeamsArray:array[1..100] of  TPerson;
  TeamsCount:Integer=0;

procedure ReadTeams(FileName:String);
procedure WriteTeams(FileName:String);

implementation
procedure ReadTeams(FileName:String);
var
  T:File of TPerson;
  I:Integer;
begin
  Assignfile(F,FileName);
  TeamsCount:=0;
{$-}
  Reset(F);
  If IoResult <> 0 then Exit;

  I:=FileSize(F);
  
  // if I>100 then ????

  TeamsCount:=I;
  for I:=1 to TeamsCount do begin
    Read(F,TeamsArray[i]);
  end;
  
  CloseFile(F);
{$+}
end;

procedure WriteTeams(FileName:String);
var
  T:File of TPerson;
  I:Integer;
begin
  Assignfile(F,FileName);
  Rewrite(F);
  
  Seek(F,0);

  for I:=1 to TeamsCount do begin
    Write(F,TeamsArray[i]);
  end;

  CloseFile(F);


end;
end.

и подключается к uses в интерфейсной части там, где надо