Разработать программу организации, заполнения, и вывода на экран квадратной матрицы

const
  n_max = 20;
 
type
  matrix = array [1..n_max, 1..n_max] of integer;
 
var
  A: matrix;
  q, n, i, j, min: integer;
 
procedure CreateMatrix(n: integer; var A: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      A[i, j] := -n_max div 2 + random(n_max);
end;
 
procedure OutputMatrix(n: integer; A: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(A[i, j]:6);
    writeln;
  end;
end;
 
procedure MinInColumn(n, k: integer; A: matrix; var min: integer);
var
  i: integer;
begin
  min := A[1, k];
  for i := 2 to n do
    if A[i, k] < min then
      min := A[i, k];
end;
 
begin
  readln(n, q);
  CreateMatrix(n, A);
  OutputMatrix(n, A);
  MinInColumn(n, q, A, min);
  writeln('min: ', min);
end.