const N=10;

type
  bal=array [1..10] of real;

  TStud=record                 //Информация по студентам
        FIO: string [80];   
        Year: TDateTime;
        MedB: bal;
        Kurs: byte;
        Group: byte;
  end;

  TGroup = record   //... - то что ПОСОВЕТОВАЛИ...
    Sum:real;         //сумма сред. баллов студентов
    ID:byte;           
  end;

  fil = file of TStud;
  arr = array of array of TGroup;    //многомерный массив записей

var
  maxK,maxG:integer; // максимальный курс и макс. группа(для задания длины массива) это я нахожу в др. юните

  countGr:integer;  //коли-во групп
  f: fil;                 
  s: TStud;
  ArrGr:arr;             

  function GPAstud(s:Tstud):real;
  procedure GPAgr;
  procedure ResetArray;

implementation

uses DeleteST, ChangeST, AddST, Main_Form, SearchGR;

procedure GPAgr;
begin
  ResetArray;
  CountGr:=0;
  reset(f);
  while not(eof(f)) do
  begin
    read(f,s);  //читаем
    with ArrGr[s.Kurs,s.Group] do begin
      Sum := Sum + GPAstud(s);  //Добавляем ср. балл студента в общую сумму группы

      if ID=0 then begin;
        inc(countGr);
        ID:=countGr;  //добавл АЙди новой группы
      end;  
    end;
  end;
  Closefile(f);
end;

procedure ResetArray;  //обнуляем записи массива
var i,j:integer;
begin
  for i:=1 to maxK do
    for j:=1 to maxG do
      with ArrGr[i,j] do begin
        ID:=0;
        Sum:=0;
      end;
end;

function GPAstud(s:Tstud):real;  //Средний балл студента по оценкам
var
  k:integer;
  sum:real;
begin
  sum:=0;
  for k := 1 to N do
    sum:=sum+s.MedB[k];
  result:=sum/N;
end;