Найти номер первого из столбцов матрицы, содержащих нечётные числа

procedure TForm1.Button1Click(Sender: TObject);
var M,N,i,j:integer;
a:matr;
begin
M:=StrToInt(Edit1.Text);
N:=StrToInt(Edit2.Text);
Label4.Caption:='';
 
For i:=1 to m do
for j:=1 to n do
a[i,j]:=random(101);
 
For i:=1 to m do
begin
Label4.Caption:=#13+Label4.Caption;
for j:=1 to n do
Label4.Caption:=IntToStr(a[i,j])+' '+Label4.Caption;
end;

Type 
matr=array[0..100,0..100] of integer;

procedure TForm10.Button1Click(Sender: TObject);
Type
  matr = array [1 .. 100, 1 .. 100] of Integer;
var
  M, N, i, j, first  : Integer;
  a: matr;
begin
  M := StrToInt(Edit1.Text);
  N := StrToInt(Edit2.Text);
 
  For i := 1 to M do
    for j := 1 to N do
      a[i, j] := random(101);
 
  first :=101;
  For i := 1 to M do
   for j := 1 to N do
     if odd(a[i,j]) then
        if first < j then   first:=j;
 
 if j=101 then  ShowMessage('0')
   else  ShowMessage(IntToStr(j));
 
 end;

if first = 101 then  ShowMessage('0')
   else  ShowMessage(IntToStr(first));

if odd(a[i,j]) then
* * * * begin
first:=j;
break;
break;
end;