Найти количество студентов по группам, имеющие средний балл за сессию не менее, чем общий средний балл

type sessia=record
Name: string[10]; 
Fam: string[18]; 
vozrast: integer; 
pol: string; 
kod_grup: integer; 
end;
Var a,b,c,d,e,f,s,q,r,m,p,o:real;
 i, n:integer;
 student : Array[1..10] of sessia;
 begin
   o:=0;
   p:=0;
   r:=0;
  n:=5;
 for i:=1 to n  do
 begin
  writeln('Введите сведения о ',i,'-м студенте');
writeln('Введите фамилиюю студента: '); 
Readln (student[i].Fam);
writeln('Введите имя студента: ');  
Readln (student[i].Name);
writeln('Введите возраст студента: ');  
Readln (student[i].vozrast);
writeln('Введите пол студента: '); 
readln(student[i].pol);
writeln('Введите группу студента: '); 
readln(student[i].kod_grup);
writeln('Введите оценку по Информатике: '); 
readln(a);
writeln('Введите оценку по Высшей математике: '); 
readln(b);
writeln('Введите оценку по Русскому языку: '); 
readln(c);
writeln('Введите оценку по Программированию: '); 
readln(d);
writeln('Введите оценку по Офисному ПО: '); 
readln(e);
writeln('Введите оценку по Курсовой работе: '); 
readln(f);
S:=((a+b+c+d+e+f)/6);
writeln('Средний балл студента: ',S);
q:=r+S;
r:=q;
m:=r/n;
if (student[i].kod_grup=1) and (S>=m) then p:=p+1
else if (student[i].kod_grup=2) and (S>=m) then o:=o+1;
end;
 
writeln('Общий средний балл: ',m);
writeln('p=',p);
writeln('o=',o);
end.