Организация записи, Непонятка с заданием Опции

[klem4]

Вот как оно звучит дословно :

Книга учета : Код подразделения, Табельный номер, ФИО сотрудника, Почасовая ставка, Отработанное время.

Вот я привильно запись организовал ?? Не могу понять Код подразделения и Табельный номер може тоже массив ?? А может массив книг ?? Хотя это врядли... Вы что скажете ?

uses crt;
type
   TRec = record
      PCode  : byte; {Êîä ïîäðàçäåëåíèÿ}
      TabN   : byte; {Òàáåëüíûé íîìåð}
      Worker : array[1..100] of record
                           name    : string[21];
                           SName   : string[21];
                           TName   : string[21];
                           HMoney : byte; {Ïî÷àñîâàÿ ñòàâêà â ðóáëÿõ}
                           WTime  : byte; {Îòðàáîòàííîå âðåìÿ â ÷àñàõ}
                           end;
      end;

var
   Book : TRec;
   i,n:integer;

Begin
   write('Input N > ');{Êîë-âî ðàáî÷èõ}
   readln(n);
   with book do
    begin
       write('Input Pcode > ');readln(PCode);
       write('Input TabN > ');readln(TabN);
       for i:=1 to n do
        with worker[i] do
         begin
            writeln;
            writeln('==============');
            write('Input ',i,' name ');
            readln(name);
            write('Input ',i,' SName ');
            readln(SName);
            write('Input ',i,' Tname ');
            readln(TName);
            write('Input ',i,' Hmoney ');
            readln(HMoney);
            write('Input ',i,' WTime ');
            readln(WTime);
            writeln;
            writeln('===============');
         end;
    end;
    readkey;

end.

А то уже сдавать надо, а уточнить задание не смогу, препода не будет.