записи с файлами, нефига не понимаю как ето все делать... Опции

[RIJIKOV]

Люди добрые,помогите зделать такую задачу:

_______________________________________________
N учеников проходили тестирование выполнив M тестов по какому либо предмету.
Сколько очков набрал каждый ученик по всем темам? Вычислить средний бал,полученный учениками, и разницу между лучшим результатом и средним баллом.
_______________________________________________
помогите пожалуста!!!!! горю!!!!!

[Postman]

После справедливого замечания модератора из под пера вышел следующий опус.
Записи использованы в связном списке.

type
 markspointer = ^marks;
 marks = record
 next:markspointer;
 mark:real;
 end;

 studpointer = ^student;
 student = record
 next:studpointer;
 first:markspointer
 end;

var
 sum,mark,mid,raz,max,n:Real;
 currst,newst,firststud:studpointer;
 currm,newm:markspointer;
 f1,f2:text;
 a:boolean;

begin
  assign (f1,'in.txt');
  assign (f2,'out.txt');
  reset (f1);
  rewrite (f2);
  new(firststud);
  a:=true;
  mark:=0;
  raz:=0;
  mid:=0;
  n:=0;
   while not eof (f1) do
    begin
     if a=true then
      begin
       new (newst);
       firststud^.next:=newst;
       a:=false;
       currst:=newst;
       new(newm);
       currst^.first:=newm;
       read(f1,mark);
       newm^.mark:=mark;
       currm:=newm;
      end else
       begin
         new(newst);
         currst^.next:=newst;
         currst:=newst;
         new (newm);
         currst^.first:=newm;
         read(f1,mark);
         newm^.mark:=mark;
         currm:=newm;
       end;
       while not eoln(f1) do
       begin
        new(newm);
        currm^.next:=newm;
        read (f1,mark);
        newm^.mark:=mark;
        currm:=newm;
       end;
     end;
 currst:=firststud^.next;
 currm:=currst^.first;
 while currst <> nil do
 begin
  while currm <> nil do
  begin
   mark:=currm^.mark;
   if max<mark then max:=mark;
   sum:=sum+mark;
   n:=n+1;
   currm:=currm^.next;
  end;
 mid:=sum/n;
 raz:=max-mid;
 writeln (f2,'sum: ',sum:3:1,',mean score: ',mid:3:1,',difference: ',raz:3:1);
 sum:=0;
 max:=0;
 n:=0;
 mid:=0;
 currst:=currst^.next;
 currm:=currst^.first;
 end;
 Close(f1);
 Close(f2);
end.