Помогите, пожалуйста!
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная

Pascal const     n = 9; var  i,min,b : integer;  a : array [1..n] of integer; begin      for i := 1 to n do    a[i] := 10 + random (141);           min := 151;   for i := 1 to n do    begin     if a[i] < min then      begin       if a[i] div 100 > 0 then        b := ((a[i] div 10) - (a[i] mod 10)) div 10         else          b := a[i] div 10;       if b mod 2 = 1 then        min := a[i];            end;      end;      if min = 151 then    writeln ('not found')     else      writeln (min);  end.