язык - турбо паскаль
Написать программу, которая выдает следующую информацию:
 - список студентов, имеющих задолженность за всеми предметами;
 - название предмета и фамилии студентов, которые не сдали экзамен;
 - По названию предмета и группой - средний балл по предмету.
 переделайте плиз у меня вот есть пример как нужно,мне просто помогите расписать моё задание.Буду благодарна.Спасибо
 Вот поиск пример:unit poisk;
 interface
 uses Crt;
 type student=record
 fam,group:string;
 vidmitka1,vidmitka2,vidmitka3:real;
 end;
 var f:file of student;
 z:student;
 vidmitka1,vidmitka2,vidmitka3,v:real;
 i,j,k:integer;
 n_group:string;
 a:string;
 procedure poisk1;
 implementation
 procedure poisk1;
 begin
 clrscr;
 assign(f, 'student.dat');
 reset(f);
 writeln('Введите номер групы ');
 k:=0;
 readln(n_group);
 reset(f);
 writeln;
 while not (eof(f)) do
 begin
 read(f, z);
 if n_group=z.group then k:=k+1
 end;
 close(f);
 reset(f);
 if k=0 then write('Takogi grupy net')
 else
 begin
 begin
 writeln('Spisok studentov ', n_group, ' gropy');
 while not (eof(f)) do
 begin
 read(f, z);
 v:=z.vidmitka1+z.vidmitka2+z.vidmitka3;
 begin
 if (n_group=z.group) and (v>=4)then
 begin
 write(z.fam);
 end;
 end;
 end;
 end;
 readkey;
 end;
 end;
 end.
 И поэтому примеру сделайте прошу мои задания три.Спасибо