[mAnah]

Задача про студентов. Делаю в Паскале)

Код:

Uses crt;
Const fname='students.dat';
      n=3;              {Кол-во предметов за сессию}
Type st=record
      fam:string;       {Фамилия}
      oc:array [1..n] of integer;{Оценки}

      end;
Var t:array[1..30] of st;
    i,ch,j,a,b:integer;
    h: file of st;
begin
{write('vvedite kol-vo stud-ov: '); readln(b);}
write('Введите кол-во студентов: '); readln(ch);
    for i:=1 to ch do begin
    writeln('Сведения о ' ,i,'студенте');
    write('Фамилия: '); readln(t[i].fam);
    writeln('Оценки по предметам: ');
    for j:=1 to n do begin
      case j of
      1:write('Мат: ');
      2:write('Культ: ');
      3:write('Ист: ');
      end;
      readln(t[i].oc[j]);
      if not ((t[i].oc[j]>0) and (t[i].oc[j]<=10)) then begin
        writeln('Неверн. оценка - надо от 1 до 10.');
        j:=j-1;
      end;     

a:=a+t[i].oc[j]; {НАХОЖУ СУММУ ВСЕХ ОЦЕНОК ВСЕХ СТУДЕНТОВ}

    end;
    writeln;
  end;
  Assign (h,fname);
  {$I-}
  reset(h);
  If Ioresult<>0 then rewrite(h);
  {$I+}
  for i:=1 to ch do write(h,t[i]);
  writeln('Средний балл',a);
  close(h);
  writeln('Данные занесены в файл ',fname);
  readln;
end.

Нашел сумму всех оценок всех студентов. Ср. балл считаю по формуле a:=a/3/ch
Но типы не совпадают, конечно же(
Что можно сделать?