Ввести матрицу A(N,M). Найти минимум каждого столбца, если он положительный, то записать его в массив B. Массив вывести

var
  A: array[1..10, 1..10] of integer;
  b: array [1..10] of integer;
  i, j, M, N: byte;
  Min: integer;
 
begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := random(50)-15;
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
 
  writeln('Минимальный  элемент в каждом столбце:');
 for j := 1 to n do
  begin
    min := 1000;
    for i := 1 to n do
      if a[i,j] <= min then min := a[i,j];
      writeln (j,'-й стоблец = ', min);
end;
end.

var a: array[1..10, 1..10] of integer;
     b: array [1..10] of integer;
     i, j, M, N, K, Min: integer;
begin
  repeat
  write('Введите число строк от 2 до 10 N = ');//вводите 2,3 а то не будет положительных
  readln(N);
  until N in[2..10];//вводите больше 9 или 10
  repeat
  write('Введите число столбцов от 2 до 10 M = ');
  readln(M);
  until M in [2..10];
  randomize;
  writeln('Случайная матрица ', N, 'x', M, ':');
  for i := 1 to N do
   begin
    for j := 1 to M do
     begin
      a[i, j] :=-15+random(50);
      write(a[i, j]:4)
     end;
    writeln
  end;
writeln('Минимальный  элемент в каждом столбце:');
K:=0;
for j := 1 to M do
 begin
  min := a[1,j];
  for i := 2 to N do
  if a[i,j] < min then min := a[i,j];
  writeln (j,'-й стоблец = ', min);
  if min>0 then
   begin
    inc(K);
    b[K]:=min;
   end;
 end;
if K=0 then write('Нет положительных минимальных')
else
 begin
  writeln('Массив положительных минимальных');
  for i:=1 to K do
  write(b[i]:4);
 end;
end.