Помогите, пожалуйста! заполнить массив из 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.