Работа с информацией сложной структуры, Помогите решить задачу Опции

[Hammer]

Составить программу, помогающую сообщать сведения о местах на авиарейсы из Моск-вы в Ленинград на календарный месяц (30 дней). В памяти хранится информация о мес-тах на рейс на заданное число в виде матрицы, в которой номер строки – ряд, номер столбца – номер места в ряду (всего 25 рядов, по шесть мест в ряду). Элемент матрицы может иметь следующие значения: 0 — место свободно, 1 — место продано, 2 — место забронировано. Считать, что в день имеется один рейс. По требованию сообщать сле-дующую информацию:
о свободных местах на заданное число;
о проданных местах на заданное число;
о количестве свободных мест на весь месяц;
о брони на заданное число.


Подкиньте пару идей...

[LLIRIKS]

Код

for I:=1 to 30 do
 begin
   for J:=1 to N do
     for K:=1 to M do
       begin
         readln(A[J,K]);
       end;
   write(F,A);
 end;

вроде бы так...
F - файл типа A.
A - вводимая матрица NxM.