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

Uses Crt;
const N = 4;
Var
   a:array[1..N,1..N] of Integer;
   i,j,f,min:Integer;
BEGIN
for i:=1 to N do begin
 for j:=1 to N do begin
a[i,j]:=random(9)+2;
Write(a[i,j]:4);
end;
writeln;
end;
write('Одномерный массив из нечетных элементов четных строк: ');
writeln;
for i:=1 to N do   begin
for j:=1 to N do
if i mod 2 =  0  then
  if (a[i,j] mod 2 = 1) then begin f:=1; Write(a[i,j]:4);  end;
 end;
if f = 0 then Writeln('No');
Writeln;
write('Одномерный массив из минимальных элементов нечетных столбцов: ');
writeln;
for j:=1 to N do
if odd(j) then
 begin
  min:=a[1,j];
  for i:=1 to N do
  if a[i,j]<min then min:=a[i,j];
  Write(min:4);
 end;
END.

const
  N = 4; M = 4;
 
var
  mf: array [1..N, 1..M] of integer;
  mstr: array [1..M *( N shr 1)] of integer; //(N shr 1) - то же что и (N div 2) при желании можно заменить
  mcol: array [1..M] of integer;
  i, j, k, min, count: integer;
 
begin
  k := 1; count:=1;
  randomize;
  for i := 1 to N do
    for j := 1 to M do
      mf[i, j] := random(10);
  
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(mf[i, j]:6);
    writeln;
  end;
  
  for i := 1 to N do
    for j := 1 to M do
      if(i mod 2 = 0) then
      begin
        if(mf [i, j] mod 2 = 1) then
          while(k <= M * (N shr 1)) do
          begin
            mstr[k] := mf[i, j];
            inc(k);
            break
          end
      end
      else break;
      
for j:=1 to M do
  if(j mod 2 = 1) then
  begin
  min:=mf[1,j];
  for i:=1 to N do
    if(mf[i,j]<min) then min:=mf[i,j];
  mcol[count]:=min;
  inc(count)
  end;
    
  
  writeln('Одномерный массив из нечетных элементов четных строк');
  for i := 1 to k-1 do
    write(mstr[i]:6);
    
  writeln;    
  writeln;
  
  writeln('Одномерный массив из минимальных элементов нечетных столбцов');
  for i := 1 to count-1 do
    write(mcol[i]:6);
  
end.