двумерный массив - преобразование матрицы

[AlexP777]

Здравствуйте,

Постановка задачи:

Преобразовать массив, умножив элементы каждого столбца на минимальный элемент этого столбца.

Вот пока чего не могу осмыслить - как взять конкретно элементы столбца из введенных мною?

Вот вводим всю матрицу(допустим квадратную 5/5 для простоты):

readln(A[I,J]);
For I:=1 to N do
For J:=1 to M do
Readln(A[I,J]);

нужно задать какую-то переменную для минимального значение и каое-то минимальное значение, но какое?

  For J:=1 to M do
    Begin
    For I:=1 to N do
    if min> A[I,J] then min:=A[I,J];
    writeln(min);
    For I:=1 to N do
    min:= A[I,J] * min;
    writeln(min);
    end;

т.е. по сути здесь все и выполняется - ищем минимальный элемент массива и перемножаем все другие, но перед циклом минимальный эл. должен быть указан - можно указать его равным нулю?

подскажите идеями, либо каким-то текстами как решить данный вопрос буду благодарен.

[AlexP777]

поразмышлял и пришел вот к какому тексту(поправьте меня, если что не так написал):

program laba6v7;
const n=5;
var a:array[1..n,1..n] of real;
  m:real; i,j:integer;
begin
m:=5000000000;

     for i:=1 to n do
     for j:=1 to n do
     begin
         a[i,j]:=random(50);
         write(a[i,j]:4);
     end;
(* writeln('vvedite massiv');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]); *)

for i:=1 to n do
  begin
  if m>a[i,j] then m:=a[i,j];
  write(' ',m,'  '); writeln;
  m:=a[i,j]*m;
  writeln(m);
  end;
(* for i:=1 to n do
  begin
  m:=m*a[i,j];
 writeln;
  write('   ',m,'    ');
  end; *)
end.

некоторые строки просто закомментил, что бы заново не писать вдруг чего.



P.S.: как бы все таки сделать дополнительно красивый вывод результата в ввиде нормальной квадратной матрицы на экран?