Придумать формулу

//Найти среднюю нагрузку по данной кафедре 
procedure sam3;
 var 
j,p: integer;
g:real; 
begin 
ClrScr;
Writeln('Введите номер кафедры:');
readln(p);
ClrScr;
//g:=mas[j].kolchasov/(???)
for j := 1 to i do 
with mas[j] do 
if mas[j].kafedra=p then
writeln(g);//средняя нагрузка
readkey; 
end;

var n,//количество записей
    k,//количество преподавателей на данной кафедре
    s:integer;//общее количество часов преподавателей этой кафедры
    sr:real;//средняя нагрузка
..............................
Writeln('Введите номер кафедры:');
readln(p);
k:=0;
s:=0;
for j := 1 to n do
if mas[j].kafedra=p then
 begin
  inc(k);
  s:=s+mas[j].kafedra.prepodavatel.hour;//количество часов преподавателя кафедры
 end;
if k=0 then writeln('Такой кафедры нет')
else
 begin
  sr:=s/k;
  writeln('Средняя нагрузка=',sr:0:1,' часа');
 end;
readkey;
end;

//Список предметов, читаемых данной кафедрой
procedure chitkaf;
 var 
j,p,k,n: integer;
begin 
repeat
try
ClrScr;
Writeln('Введите номер кафедры:');
readln(p);
n := 1
      except
        clrscr; 
        writeln('Ошибка при введении данных !!! '); 
        delay(1000);
      end;
    until n = 1;
    n := 0;
k:=0;
ClrScr; 
for j := 1 to i do  
if mas[j].kafedra=p then
begin
inc(k);
end;
if k=0 then writeln('Такой кафедры нет')
else
begin
writeln( mas[j].nazvanie);
end;
readkey; 
end;

type 
predmet = record
nomer: integer;//номер записи 
kolchasov: integer;//коло-во часов 
nazvanie: string[20];//название предмета 
fio: string[29];//ФИО препода
kafedra: integer;//номер кафедры 
kolzachetov: integer;//коло-во зачетов
kolekzamenov: integer;//коло-во экзаменов
end;