Розв’язок задачі з Абрамова №507д

Всі умови | Умова: Відомості про учня складаються з його імені і прізвища та назви класу, в якому він навчається. Дано файл f, що містить відомості про учнів школи. З'ясувати, в яких класах налічується більше 35 учнів. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №507)

program Pr507_5;
var
   i : byte;
   P : TPupil;
   F : file of TPupil;
   m : array [1..11] of integer;
begin
   assign(f,'in');
   reset(f);
   for i :=1 to 11 do m[i] := 0;
   while not eof  (f) do
   begin
      read(f,p);
      inc(m[p.classs]);
   end;
   close(f);
   for i:= 1 to 11 do
      if m[i] > 35 then writeln(i);
   readln;
end.