Подпрограммы: для каждого предприятия определить его долю стоимости производимой продукции каждого типа в процентах

const n=4; m=5;
var
a:array[1..n,1..m] of integer;
t:array[1..m] of integer;
max:array[1..n] of 1..m;
i,j,mx,k:integer;
begin
Randomize;
writeln('Стоимости единицы товара');
writeln('  1 тов 2 тов 3 тов 4 тов 5 тов');
for j:=1 to m do begin
 t[j]:=random(30)+1;
 write(t[j]:6);
 end;
writeln;
writeln('Общий объем выпуска товаров каждого вида на предприятиях');
writeln('                   1 тов 2 тов 3 тов 4 тов 5 тов');
for i:=1 to n do begin
 write('Предприятие ',i,' - ');
 for j:=1 to m do begin
 a[i,j]:=random(30);
 write(a[i,j]:6);
 end;
writeln;
end;
for i:=1 to n do begin
 mx:=t[1]*a[i,1]; k:=1;
 for j:=2 to m do
  if t[j]*a[i,j]>mx then
    begin mx:=t[j]*a[i,j]; k:=j; end;
  max[i]:=k;
  end;
writeln('Товар с максимальной общей стоимостью:');
 for i:=1 to n do writeln('Предприятие ',i,' - ',max[i]);
end.