По матрице сформировать векторы из максимальных количеств элементов столбцов и из минимальных элементов строк

Const
max = 30;
var
a: array[1..max,1..max] of Integer;
b,c: array[1..max] of Integer;
i,j,jmax,imin,n,m:integer;
begin
 repeat
   writeln('Введите размерность матрицы: (до 30)');
   write('N='); read(n);
   write('m='); read(m);
 until (n<31) and (m<31);
 
 randomize;
 for i := 1 to n do begin
     for j := 1 to m do begin
         a[i,j] := random(41)-20;
         write(a[i,j]:4);
     end;
     writeln;
 end;
 
 //a) поиск максимальных элементов каждого столбца
 writeln('вектор, в котором будут сохранены максимальные элементы в каждом столбце матрицы');
 for j := 1 to M do begin
     jmax := a[1,j];
     for i := 2 to n do if a[i,j] > jmax then jmax := a[i,j];
     b[j] := jmax;
     write(b[j]:4);
 end;
 writeln;
 
 //б) поиск минимальных элементов каждой строки
 writeln('вектор, в котором будут сохранены минимальные элементы на каждой строке матрицы');
 for i := 1 to n do begin
     imin := a[i,1];
     for j := 2 to m do if a[i,j] < imin then imin := a[i,j];
     c[i] := imin;
     write(c[i]:4);
 end;
 readln;
end.

Read(m,n);
if not (m in [2,nMax]) or not (m in [2,nMax]) then Exit;
for i:=0 to m-1 do for j:=0 to n-1 do Read(a[i,j]); ReadLn;

Const
max = 30;
var
a: array[1..max,1..max] of Integer;
b,c: array[1..max] of Integer;
i,j,jmax,imin,n,m:integer;
begin
 repeat
   writeln('Введите размерность матрицы: (до 30)');
   write('N='); read(n);
   write('m='); read(m);
 until (n<31) and (n>1) and (m<31) and (m>1);
 
 for i := 1 to n do begin
     for j := 1 to m do begin
         write('a[',i,',',j,']=');
         read(a[i,j]);
         end;
    writeln;
 end;
 
 //a) поиск максимальных элементов каждого столбца
 writeln('вектор, в котором будут сохранены максимальные элементы в каждом столбце матрицы');
 for j := 1 to M do begin
     jmax := a[1,j];
     for i := 2 to n do if a[i,j] > jmax then jmax := a[i,j];
     b[j] := jmax;
     write(b[j]:4);
 end;
 writeln;
 
 //б) поиск минимальных элементов каждой строки
 writeln('вектор, в котором будут сохранены минимальные элементы на каждой строке матрицы');
 for i := 1 to n do begin
     imin := a[i,1];
     for j := 2 to m do if a[i,j] < imin then imin := a[i,j];
     c[i] := imin;
     write(c[i]:4);
 end;
 readln;
end.