type
rec = record
number: integer;
name: string;
unitDim: string;
quarterPlan: string;
allPlan: string;
end;
var
a: array[1..n] of rec;
i: integer;
begin
{...}
for i:=1 to n do writeln(a[i].number:4, a[i].name:4, a[i].UnitDim:4, a[i].quarterPlan:4, a[i].allPlan );
{...}
end;