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

const an=20; bn=30;
var
  a: array [1..an,1..an] of Integer;
  b: array [1..bn,1..bn] of Integer;
  c: array [1..bn div 2] of Integer;
  ak, bk, cn, m, t, i, j: Integer;
begin
  Randomize;
  for i:=1 to an do for j:=1 to an do a[i,j]:=Random(10);
  for i:=1 to bn do for j:=1 to bn do b[i,j]:=Random(10);
  for i:=1 to an do for j:=1 to an do if a[i,j]=0 then Inc(ak);
  for i:=1 to bn do for j:=1 to bn do if b[i,j]=0 then Inc(bk);
  j:=1; {cn:=0;}
  if ka>kb then begin
    while j<=an do begin
      m:=a[1,j]; for i:=2 to an do if m<a[i,j] then m:=a[i,j];
      Inc(j,2); Inc(cn); c[cn]:=m;
    end;
    WriteLn('A =');
    for i:=1 to an do begin
      for j:=1 to an do Write(a[i,j]:2); WriteLn;
    end;
  end else begin
    while j<=bn do begin
      m:=b[1,j]; for i:=2 to bn do if m<b[i,j] then m:=b[i,j];
      Inc(j,2); Inc(cn); c[cn]:=m;
    end;
    WriteLn('B =');
    for i:=1 to bn do begin
      for j:=1 to bn do Write(b[i,j]:2); WriteLn;
    end;
  end;
  for i:=cn downto 2 do for j:=2 to cn do
    if c[j-1]>c[j] then begin
      t:=c[j-1];.c[j-1]:=c[j]; c[j]:=t;
    end;
  WriteLn('C ='); for j:=1 to cn do Write(c[j]:2); WriteLn;
end.