Минимальное значение каждого столбца матрицы

[Necker]

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
   M=19;
type
	Mas=array[1..M] of integer;
   Mat=array[1..M,1..M] of integer;
var

   A:mat;
   B:mas;
   p,N:integer; // количество чисел

Procedure InitMas(var A:mat; M:integer);
var
	i,j:integer;
Begin
	Randomize;
   for i:=1 to M do
    for j:=1 to M do
   	A[i,j]:=Random(100);
end;

Procedure PrintMas(A:mat;M:integer);
Var
   i,j:integer;
Begin
   WriteLn('Elementu mas');
   for i:=1 to M do
   begin
   for j:=1 to M do
   	Write(A[i,j]:4);
    	writeln;
   end;
   writeln;
end;

Function InputSize(M:integer):integer;
Var
   N:integer;
Begin
   Repeat
		Write('razmer matrizu ');
     Readln(N);
   until (N>1)and(N<M);
   Result:=N;
end;
Function Minm(A:mat;j,N:Integer): Integer;
var
  i,min: integer;
{begin
  min:= A[1];
  for i:=2 to N do

        if A[i] < min then min:=A[i];

       // writeln('Min');

  write('Min: ');


  writeln(min:4);
          readln;
end;  }
begin
  min:= A[1,j];
  for i:=2 to N do
  begin
//      writeln('i=',i:3,'a=', A[i,j]);
  		if A[i,j] < min then min:=A[i,j];
  end;
       // writeln('Min');

//  writeln('Min: ',min);
(*
    for j:=1 to N do
  write(min:4);
          readln;
*)
	result:=min;


end;
Var
   min:integer;

begin
	N:=InputSize(M);
   InitMas(A,N);
   PrintMas(A,N);
  	Min:=Minm(A,1,N);
   write (Min:4);

Readln;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

в моем случае вывод выглядит вот так:
razmer matrizu 5
Elementu mas
84 83 26 54 28
11 95 43 8 78
45 68 10 70 46
5 10 63 81 70
92 16 62 31 57

5

[Necker]

Пользователь вводит размер квадратной матрицы(N на N), после чего программа выводит минимальное значение каждого столбца это матрицы.
За ранее спасибо за помощь.

[Serge_Bliznykov]

так что не получается?

Сообщение от Necker

не могу понять какой цикл сделать, чтоб выводило не для одного

можно сделать так:

Var
   j:integer;

begin
   N:=InputSize(M);
   InitMas(A,N);
   PrintMas(A,N);
   for j:=1 to N do
  	Write(Minm(A,j,N):3,' ');
   Readln;
end.