квадратная матрица

[remember me]

Дана матрица q (k,n). Найти значение максимального елемента в каждом столбце,минимального в каждой строчке, обьединить в одномерный массив

[Mad_Cat]

z:=0;
for i:=1 to n do begin
k:=1;
for j:=2 to m do
if q[i,j]<q[i,k] then k:=j;
inc(z);
nm[z]:=q[i,k];
end;

for i:=1 to m do begin
k:=1;
for j:=2 to n do
if q[j,i]>q[k,i] then k:=j;
inc(z);
nm[z]:=q[k,i];
end;
for i:=1 to z do
write(nm[i]:6:2);

[remember me]

а максимальный

Program lab6;
const n=3; m=4;
var b,c,d:real;
		q:array[1..n,1..m] of integer;
    w:array[1..n+m] of integer;
		a,i,j:integer;
begin
begin
for i:=1 to n do
 for j:=1 to m do
  writeln('Vvedite q[',i,',',j,']');
  readln(q[i,j]);
end;
for i:=1 to n do
 begin
  a:=1;
  if q[i,j]<q[i,a] then a:=j;
  b:=q[i,a];
 end;
for i:=1 to m do
 begin
  a:=1;
  for j:=1 to n do
  if q[j,i]>q[a,i] then a:=j;
  c:=q[a,i]
 end;            {
for 1 to n do
 d[i]:=b[i];
for n to n*2 do
 d[i]:=c[i];      }
writeln (d);
readln (d);
end.

что тут не так