Работа с файлами, Обработка текстового файла Опции

[npl]

Даны названия N различных обществ (N заданное число), фигуристы которых участовали в соревновании. О каждом фигуристе известно: фамилия, название общества и 10 оценок за его выступление. Требуется для каждого спортивного общества определить фигуриста, показавшего наивысший результат, считая его единственным. Баллы, полученные фигуристом, подсчитываются следующим образом: максимальная и минимальная оценки отбрасываются, а из остальных формируется средняя. При вводе данных обеспечить уникальность наименований обществ и обязательную принадлежность фигуриста к одному из них.

[npl]

Вот код

program obchestva_and_figuristyi;
uses crt;
type
 figurist=record
  fio:string[10];
  obsh:string[10];
  ocenka:array[1..10] of integer;
 end;
var
 f:file of figurist;
 ftxt:text;
 i,cod:integer;
 z:figurist;
 st:string;
 max,min:integer;
 s,sr:real;
begin
 clrscr;
 assign(ftxt,'figur1.txt');
 reset(ftxt);
 assign(f,'figur.dat');
 rewrite(f);
 while not eof(ftxt) do
  begin
   readln(ftxt,st);
   z.fio:=copy(st,1,pos(' ',st));
   z.obsh:=copy(st,12,pos(' ',st));
   delete(st,1,22);
   for i:=1 to 10 do
    begin
     val(st[1],z.ocenka[i],cod);
     delete(st,1,2);
    end;
   write(f,z);
 end;
 close(ftxt);
 close(f);
 reset(f);
 while not eof(f) do
  begin
   read(f,z);
   write(z.fio,' ',z.obsh,' ');
   for i:=1 to 10 do
    write(z.ocenka[i]);
   writeln;
   max:=z.ocenka[1];
   for i:=2 to 10 do
    begin
     if z.ocenka[i]>max then
      max:=z.ocenka[i];
    end;
   write(max,' ');
   min:=z.ocenka[1];
   for i:=2 to 10 do
    begin
     if z.ocenka[i]<min then
      min:=z.ocenka[i];
    end;
   write(min,' ');
   s:=0;
   for i:=1 to 10 do
    s:=s+z.ocenka[i];
   write(s:2:1,' ');
   sr:=(s-max-min)/8;
   writeln(sr:2:2);
  end;
 close(f);
end.

Пока я определил максимальную, минимальную оценку, отбросил их и нашёл среднюю.

Добавлено через 5 мин.
Думаю, что делать дальше. Создать ещё один типизированный файл, туда поместить фамилии фигуристов, названия обществ и их средние оценки. И дальше работать с этим файлом, чтобы для каждого общества найти фигуриста с максимальным результатом.