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


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

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.

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

Ну и сколько таких записей ты сможешь хранить, скажем, в массиве? У одной такой записи как ты определил, размер 6502 байта. Кроме того, ты хочешь сказать, что один и тот же табельный номер есть у 100 работников? Сомневаюсь...

Я бы все-таки сделал так:

type
  TRec = record
    PCode: byte; { Код подразделения }
    TabN: Longint; { Табельный номер - они обычно больше, чем 256 }
    name, SName, TName: string[21];
    HMoney: byte; {Почасовая ставка}
    WTime: byte; {Отработанное время}
  end;
var Workers: array[1 .. 100] of TRec;

Спасибо, разобрался.