[Сёна]

массив

Код:

mas_rol:array [1..5,1..n*4] of roliks;

(n = 104)

Код:

type
roliks = record
 ob:Tshape;      
 rol:string[10];  
 rol_p:string[10];  
 fsec:integer;  
 unrs:byte;     
 fnum:integer;   
 fname:tlabel;   
 line:byte;     
 sec:tpanel;     
 st:tlabel;     
 num:tlabel;     
 s_num:string[30];
 vid:byte;        
 end;