Задача В Pascal

[vovkaa]

это про студентов, получивших в сумме по трем экзаменам 14 баллов, а мне надо
Средний бал сдачи студентами сессии, но что-то у меня не выходит, помогите пожалуйста.
Свою программу могу скинуть только позже, а то осталась в универе.
Ещё раз прошу помогите, заранее спасибо, если что то мой ид в контакте: http://vk.com/vovka__a

PROGRAM z7;
TYPE st=RECORD			 
fam:STRING;			 
godr:INTEGER;		 
otm:ARRAY[1..3] OF INTEGER; 
prop:INTEGER;		 
END;
VAR gr:ARRAY[1..5] OF st;	 
i,j,ind: INTEGER; 
BEGIN 
WRITELN(‘Введите информацию о студентах’);
FOR i:=1 TO 5 DO 
BEGIN 
READ(gr[i].fam);
READ(gr[i].godr);
FOR j:=1 TO 3 DO READ(gr[i].otm[j]);
READLN(gr[i].prop);
END;
ind:=0;
FOR i:=1 TO 5 DO
IF (gr[i].otm[1]+gr[i].otm[2]+gr[i].otm[3])=14 THEN 
BEGIN 
IF md=0 THEN 
BEGIN 
WRITELN(‘Spisok studentiv, poluchivshikh’);
WRITELN(‘14 ballov v sessiyou’);
END;
WRITELN(gr[i].fam);
ind:=1;
END;
IF ind=0 THEN 
WRITELN(‘Studenti, polychivchih 4 ballov y sessiyou’);
END.

 

[nayke]

PROGRAM z7;
//читаете количество оценок, предметов и информацию по студентам.


FOR i:=1 TO CountStudent DO 
begin
FOR j:=1 TO CountMark DO 
begin
//при чтении очередной оценки для студента - суммируешь
READ(gr[i].otm[j]);
gr[i].sum:=gr[i].sum+gr[i].otm[j];
end;
gr[i].middle= sum/CountMark 
end;

//выводишь