Записи, Сортировка Опции

[ko1hoz]

Нужно создать файл, состоящий из 20 записей.
-Район;
-№школы;
-количество учеников;
-количество неуспевающих учеников;
-количество отличников и хорошистов.
Так вот, надо вывести данные о школах каждого района, у которых процент качественной успеваемости наибольший. Информацию выводить, отсортировав по наименованию района.

Файл то я конечно создал. А вот в остальном запутался. Много что-то условий. Помогите пожалуйста. Напишите хотя бы примерный алгоритм действий, а дальше думаю сам разберусь.

[ko1hoz]

Подскажите пожалуйста, вот программа а также файл с данными. В итоге у меня выводятся все школы районов (20 штук) с их качественными процентными, всё как и нужно. А как сделать, чтобы от каждого района выводилось только по одной школе с максимальным процентом?

 
uses crt;
Const name='d:\kurs2.txt';
  Type
  spisok=record
  raion:string;
  p_p,nom,kol_uch,neusp,otl_hor:integer;
  end;
Var
 k,i:integer;sum:real;
 sp:spisok;Ot:char;
 sp1:array [1..50] of spisok;
 pr:array [1..50] of real;
 F:file of spisok;
 F1:text;
 max:real;
begin
 clrscr;
 assign(F,'d:\kurs.dat');
 reset(F);
 Writeln('Zapisat v fail? Y/N');
 Readln(Ot);
 If (Ot='Y') or (Ot='y') then assign (F1,name) else assign (F1,'con');
 Rewrite(F1);
 Writeln(F1,'    Svedeniya o shkolah raionov');
 k:=0;
 For i:=1 to 77 do write(F1,'-');
 writeln(F1);
 Writeln(F1,'|    raion   |nom_p/p|nom_shkoli|kol uch|kol neusp uch|otl i hor|procent|');
 For i:=1 to 77 do write(F1,'-');
 writeln(F1);
  While not eof(F) do
  begin
   Read(F,sp);
        begin
      if sp.raion='oktyabrskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
     if sp.raion='centralnii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
     if sp.raion='zaelcovskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
    if sp.raion='sovetskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
    if sp.raion='pervomaiskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                            end;
    if sp.raion='kalininskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
    if sp.raion='leninskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
    if sp.raion='dzerzhinskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                            end;
   if sp.raion='zheleznodorozhnii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
   if sp.raion='kirovskii' then
                            begin
                             k:=k+1;
                             sp1[k]:=sp;
                             pr[k]:=sp.otl_hor/sp.kol_uch*100;
                             end;
                                 
     end;
    end;
 For i:=1 to k do with sp1[i] do
  begin
   write(F1,'|',  raion:12  ,'|',p_p:7,'|',nom:10,'|');
   writeln(F1,kol_uch:7,'|',neusp:13,'|',otl_hor:9,'|',pr[i]:7:2,'|');
  end;
 For i:=1 to 77 do write(F1,'-');
 writeln(F1);
  Close(F1);Readln;
  close(F)
end.