обработкой записей

[mrRenTgeN]

дана задача в которой сказано что нужно по результатам сессии составить программу определения среднего балла каждой группы на курсе и занимающего ею места по числу отличников. принять на курсе три группы с количеством студентов в каждой группе 3,4,5 человек. ведомость содержит данные по одному предмету.

        uses crt;
          type student=record index:string;
               ysp:array[1..5] of byte;
          end;
        var
          f:file of student;
          a:student;
          j,i,n:byte;
begin
        clrscr;
        assign (f,'d:\student.txt');
        rewrite (f);
        n:=3;
        for i:=1 to 3 do begin
           writeln (' vvedite gruppy');
           readln (a.index[i]);
           writeln (' vvedite ocenki ekzamenu:');
            for j:=1 to n do
            readln (a.ysp[i]);
            write (f,a);
            n:=n+1
        end;
        close(f);
end.

я вот вроде как одну часть проги сделал.. ввод данных а вот вывод нихренна не получается помогите пожалуйста