Двумерный массив. Сформировать одномерный массив каждый элемент которого равен первому нечетному элементу соответствующей строки

uses crt;
 
const
  nmax = 10;
  mmax = 10;
 
var
  Matrix : array [1..nmax, 1..mmax] of integer;
  Vector : array [1..nmax] of integer;
  i, j, n, m : integer;
  flag : boolean;
 
begin
ClrScr;
Randomize;
Repeat
  Write('Введите количество строк (не более ', nmax, '): ');
  Readln(n);
until n in [1..nmax];
Repeat  
  Write('Введите количество строк (не более ', mmax, '): ');
  Readln(m);
until m in [1..mmax];
Writeln('Исходный массив: ');
for i := 1 to n do
  begin
    for j := 1 to m do
      begin
        Matrix[i, j] := random(30);
        Write(Matrix[i,j]:3, ' ');
      end;
    Writeln;
  end;
Writeln('Сформированный массив: ');
for i := 1 to n do
  begin
    j := 1; flag := true;
    for j := 1 to m do
      if odd(Matrix[i, j]) then begin flag := false; break; end;
    if flag = false then Vector[i] := Matrix[i, j] else Vector[i] := 0;
    Write(Vector[i]:3, ' ');
  end;
Readln;
end.