Вот я привильно запись организовал ?? Не могу понять Код подразделения и Табельный номер може тоже массив ?? А может массив книг ?? Хотя это врядли... Вы что скажете ?
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.
А то уже сдавать надо, а уточнить задание не смогу, препода не будет.