procedure GPAgr(var count:integer);
var
  i,j:integer;
  sum:real;
begin
  reset(f);
  for i := 1 to high(GPAgroup) do
    for j := 1 to high(GPAgroup[0]) do
    begin
      count:=0;
      sum:=0;
      while not(eof(f)) do
      begin
        read(f,s);
        if (i=s.Kurs) and (j=s.Group) then //Вот тут что-то нетак!!!
        begin
          sum:=sum+GPAstud(s);
          inc(count);
        end;
      end;
      if existGR(i,j)=true then GPAgroup[i,j]:=sum/count;
    end;
  Closefile(f);
end;