Нужно помо4ь дописать программы в ПАСКАЛЕ!!))))

[сталкер_jr]

С клавиатуры вводятся данные о студентах: номер зачётной книжки, Ф.И.О., номер группы,оценка за экзамен. Подсчитать количество студентов заданной группы, средний балл за экзамен для студентов всех групп. Есть её началоrogram kr1;
uses crt;
type
Tstud = record
nom:integer;
fio:string;
gr:integer;
oc:2..5;
end;
var
stud:Tstud;
k,i:integer;
gruppa:integer;
c:char;
begin
clrscr;
write('введите группу,количество студентов которой нужно подсчитать: ');
readln(gruppa);
i:=0;
k:=0;
repeat
i:=i+1;
writeln('введите данные ',i,'-го студента.');
write('номер зачётной книжки: ');readln(stud.nom);
write('фамилия имя отчество: ');readln(stud.fio);
write('группа: ');readln(stud.gr);
write('оценка за экзамен: ');readln(stud.oc);
if stud.gr = gruppa then
k:=k+1;
write('хотите ввести ещё? (д/н) => ');readln(c);
until c = 'н';
write('количество студентов ',gruppa, ' группа => ',k);