Записи с файлами Опции

[Окран]

Умоляю помочь сделать данную задачу до завтрашнего дня!!!!!Очень прошу!!Сам вышел из больницы 2 дня назад и в первый же день учебы лабараторная по паскалю на котором я был всего на 1-2 лекциях а потом загремел по состоянию здоровья в больницу!!!Пожалуйста!!!!

Код

Полугодовая информация о изданиях по каждому подчиненному имеет следующую структуру:
ФИО - 20 знаков
участок доставки - 2 знака
адрес
кол-во выписанных изданий - 2 знака
список изданий
адрес в свою очередь состоит из следующих компонентов:
                                улица - 20 знаков
                                номер дома - 3 знака
                                номер квартиры - 3 знака
Список изданий состоит из следующих компонентов:
                                название - 20 знаков
                                вид - 1 знак(газета, журнал)
                                месяцы на которые оформлена подписка.
Список изданий представляет собой массив структур, содержащий N элементов из которых заполнены K - количествовыписанных изданий.Если подписчик оформил подписку на более чем N изданий то для него имеется 2 или более записи идущие подряд.Информация о месяцах подписки может быть представлена в виде массива из 12 логических элементов.
А теперь само задание :) : создайте файл о подписных изданиях.                

[BlackShadow]

Аллах акбар!
Я понял так: надо перелопатить файл, созданный прошлой прогой и вычленить оттуда кол-во изданий с указанным названием, на которые кто-нибудь да подписался в указнном месяце. Если так, то лови:

Код

Type
TMonths=Array[0..11] Of Boolean;
TIzdanie=Record
 Title:String[20];
 Tip:Char;
 Months:TMonths
End;
TAddr=Record
 Street:String[20];
 Home:String[3];
 Flat:String[3]
End;
TChel=Record
 Name:String[20];
 Uchastok:String[2];
 Addr:TAddr;
 Count:String[2];
 Izdaniya:Array[0..N-1] Of TIzdanie
End;

Var
 f:File Of TChel;
 IzdName:String;
 SubscrMonth:Integer;
 Total:Integer;
 x,e,i:Integer;
 c:TChel;
Begin
 Write('Enter Name Of Izdanie: ');
 ReadLn(IzdName);
 Write('Enter Month (0..11, where 0 is January): ');
 ReadLn(SubscrMonth);
 Assign(f,'Chels.Txt');
 Reset(f);
 Total:=0;
 While Not Eof(f) Do
 Begin
   Read(f,c);
   Val(c.Count,x,e);
   i:=0;
   While i<x Do
   Begin
     If (i>0) And (i Mod N = 0) Then
       Read(f,c);
     With c.Izdaniya[i Mod N] Do
       If Title = IzdName Then
         If Months[SubscrMonth] Then
           Inc(Total)
   End
 End;
 Close(f);
 WriteLn('Total ',Total,' units of ',IzdName,' will be needed')
End.

Опять с работы, опять без компилятора. Если что - свисти.