Сформировать массив из элементов матрицы

program ex; 
var 
a:array[1..7,1..7] of integer; 
i,j:integer; 
begin 
for i:=1 to 7 do 
begin 
for j:=1 to 7 do 
begin 
if((j>=i)and(j<=7-i+1)) 
or((j<=i)and(j=7-i+1)) then a[i,j]:=1 
else a[i,j]:=0; 
write(a[i,j]:3); 
end; 
writeln 
end; 
end.

const n=7;
var a:array[1..n,1..n] of byte;
    i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((j>=i)and(j<=n-i+1)) or(i=j)or(j=n-i+1)
    then a[i,j]:=1 else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln
 end;
end.

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