Задача с массивами.

[Fender92]

Задан массив А 5Х5. Заполнить его случайными числами. Вывести на экран столбец массива, который имеет наибольшее произведение элементов.

[ice!girl]

var
a:array [1..5,1..5] of integer;
b:array [1..5] of integer;
j,i,max,z:integer;
begin
randomize;
write('исходный массив: ');
writeln;

for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10)-5;

for i:=1 to 5 do
begin
for j:=1 to 5 do
write (a[i,j]:5);
writeln;
end;
writeln;

for j:=1 to 5 do
b[j]:=1;
for i:=1 to 5 do
for j:=1 to 5 do
b[j]:=b[j]*a[i,j];

max:=b[1];z:=1;
for j:=1 to 5 do
if b[j]>max then
begin
max:=b[j];z:=j;
end;
write('номер искомого столбца:',z);
end.

[unbanned]

ice!girl
текст программы нужно оформлять в тегах)))
по коду собственно...

можно объединить заполнение массива и вывод исходных данных
а при поиске максимального можно обойтись только индексом

var
  a: array [1..5, 1..5] of integer;
  b: array [1..5] of integer;
  j, i, jmax: integer;

begin
  randomize;
  write('исходный массив: ');
  writeln;  
  for i := 1 to 5 do 
  begin
    for j := 1 to 5 do 
    begin
      a[i, j] := -5 + random(20);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  
  jmax := 1;
  for i := 1 to 5 do 
  begin
    b[j] := 1; //присваивать первоначальное значение можно прям в цикле, а не создавать еще один
    for j := 1 to 5 do
      b[j] := b[j] * a[i, j];
    if b[j] > b[jmax] then jmax := j;
  end;  
  write('номер искомого столбца:', jmax);
end.

[ice!girl]

хотела как лучш,получилось как всегда...