В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение

write('Кол-во строк');readln(n);
write('Кол-во столбцов');readln(m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy((j+1)*5,7+i);readln(a[i , j]);
end;
begin
pr:=1;
for j:=1 to n do
begin
min:=a[1,j];
for i:=2 to m do
if a[i,j]<min then
min:=a[i,j];
b[i]:=a[i,min];
pr:=pr*min*5;
end;
for i:=1 to m do
begin
gotoxy(2+2*i,17);writeln(b[i]);
end;

var
a:array[1..6,1..5] of integer;
b:array[1..5] of integer;
min:integer;
i,j:byte;
begin
for i:=1 to 6 do
    for j:=1 to 5 do
 readln(a[i,j]);
writeln('Массив');      
for i:=1 to 6 do
  begin
    for j:=1 to 5 do
      begin
        write(a[i,j],' ');
      end;
  writeln;
  end;
 
for j:=1 to 5 do
  begin
  min:=a[1,j];
    for i:=1 to 6 do
      begin
      if a[i,j]<min then min:=a[i,j];
      end;
      b[j]:=min;
   end;
writeln('линейный массив');
for i:=1 to 5 do
  write(b[i],' ');
writeln('массив умноженный на 5');
  for i:=1 to 5 do
    begin
    b[i]:=b[i]*5;
    write(b[i],' ');
    end;
end.