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.
---
Стоимости единицы товара
  1 тов 2 тов 3 тов 4 тов 5 тов
    10    17    17    22    20
Общий объем выпуска товаров каждого вида на предприятиях
                   1 тов 2 тов 3 тов 4 тов 5 тов
Предприятие 1 -     15    13     5    19    28
Предприятие 2 -      3    19    12     7    11
Предприятие 3 -      0     3     7    29    22
Предприятие 4 -     28    15    16    21     5
Товар с максимальной общей стоимостью
Предприятие 1 - 5
Предприятие 2 - 2
Предприятие 3 - 4
Предприятие 4 - 4