Помогите, пожалуйста!заполнить массив из 9 частей случайными числами в промежутке в

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] lt; min then
      begin   
   if a[i] div 100 gt; 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.