Задача на записи

[xXxFEHUKCxXx]

На олимпиаде по информатике на школьников заполнялась анкета, содержащая следующую информацию: фамилия, номер школы, класс, набранный балл. Напечатайте:
1. списки школ, занявших призовые места;
2. какая из школ заняла больше всех призовых мест;
3. списки учеников, занявших первое место, и указать их класс.
4. какие из школ не заняли призовых мест;
5. учащиеся каких классов в данной школе набрали меньше всех баллов;
6. информацию об ученике набравшим баллов меньше всех


ПОМОГИТЕ ПЛЗ СДЕЛАТЬ ХОТЬ ЧТО ТО В ЭТОЙ ЗАДАЧЕ

[alexiz]

Сообщение от xXxFEHUKCxXx

На олимпиаде по информатике на школьников заполнялась анкета, содержащая следующую информацию: фамилия, номер школы, класс, набранный балл.

type
  TAnketa=record
      Fam: string(50);
      NumS: integer;
      Klass: integer;
      Ball: integer;
   end;

var
  i: integer;
  A: array[1..25] of TAnketa; {Анкеты}
begin
  {вводим данные во все поля для 25 записей}
  for i:=1 to 25 do
  begin
     {перебираем записи и считаем призовые места}
  end;
end.