Работа с записями. Pascal

[passatv6]

Задача: Ученики 2х классов сдавали экзамен по метанию гранаты. Оценки ставятся по принципу:
- "5" при длине >30 метров
- "4" от 25 до 30м
- "3" 20-25 м
- "2" менее 20 м
Определить: 1) Кто победитель и его результат
2) В каком классе больше всего "2"?
Саму запись создать не проблема, не могу сообразить, как лучше организовать цикл вычислений сразу по двум классам учеников.
Просьба пояснить или дать ссылку на похожий пример.
Заранее благодарен!

[Poma][a]

Внизу видишь похожие темы? Вот там посмотри.
Ну я бы сделал так : 2 массива : 1 класс ; 2 класс;
дальше обеспечить ввод (

WriteLn ('Сколько учеников в классе'); 
ReadLn (n);
for i := 1 to n do begin
         Write ('Имя ');
         ReadLn (a[i].name);
         Write ('Результат ');
         ReadLn (a[i].result);
end;

) + оформить ввод в виде процедурки
А дальше бегать по массиву тем же for и искать максимум и 2
Потом по 2 массиву и так же ищем макс и 2 потом сравниваем
И поиск макс и 2 лучше тож в процедурку...