Массив из максимальных элементов в каждом столбце матрицы и минимальных элементов в каждой строке

var q:array[1..15,1..15] of integer;
    a:array[1..30] of integer;
    k,n,m,i,j,mn,mx:integer;
begin
randomize;
repeat
writeln('Введите размеры матрицы от 2 до 15');
readln(k,n);
until(k in [2..15])and(n in [2..15]);
writeln('Матрица');
for i:=1 to k do
 begin
  for j:=1 to n do
   begin
    q[i,j]:=random(100);
    write(q[i,j]:4);
   end;
  writeln;
 end;
m:=0;
for j:=1 to n do
 begin
  mx:=q[1,j];
  for i:=2 to k do
  if q[i,j]>mx then mx:=q[i,j];
  inc(m);
  a[m]:=mx;
 end;
for i:=1 to k do
 begin
  mn:=q[i,1];
  for j:=2 to n do
  if q[i,j]<mn then mn:=q[i,j];
  inc(m);
  a[m]:=mn;
 end;
writeln('Массив максимальных элементов столбцов и минимальных элементов строк');
for i:=1 to m do write(a[i]:4)
end.

var
  q2: array[,] of real;
  q1: array of real; 
  k, n, m: integer;
 
begin
  k := 4;
  n := 5;
  m := k + n; // Размер итогового массива
  //Формирование массива
  SetLength(q2, k, n);
  SetLength(q1, m);
  var nmQ1 := -1;
  for var i := 0 to k - 1 do
    for var j := 0 to n - 1 do
      q2[i, j] := random(1.0, 10.0);
  for var i := 0 to n - 1 do //Макс. элем-ты  в столбцах
  begin
    inc(nmQ1);
    var maxN := 0.0;
    for var j := 0 to k - 1 do
      if q2[j, i] > maxN then
      begin
        maxN:=q2[j, i];
        q1[nmQ1] := q2[j, i];
      end;
  end;
  writeln('q2=');
 for var j := 0 to k - 1 do //Мин. элем-ты  в строках
  begin
    inc(nmQ1);
    var maxN := 0.0;
    for var i := 0 to n - 1 do
      if q2[j, i] > maxN then
      begin
        maxN:=q2[j, i];
        q1[nmQ1] := q2[j, i];
      end;
  end;
  for var i := 0 to k - 1 do // Печатаем q2
  begin
    for var j := 0 to n - 1 do
      write(q2[i, j]:0:3, ' ');
    writeln();
  end;
  writeln();
  writeln('q1=');
  for var i := 0 to m - 1 do // Печатаем q1
    write(q1[i]:0:3, ', ');
end.