Дан одномерный массив состоящий из N вещественных чисел. Отыскать посреди их

Program z1;  Var a: array [1..100] of integer; i,min,n:integer;Begin  write('Введите размерн массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(20)+1;    write (a[i],' ');  end;    for i:=1 to n do    if (a[i] mod 3 = 0) then min:=a[i];    for i:=1 to n do    if ((a[i] mod 3 = 0)and (a[i]lt;min)) then min:=a[i];  writeln;  writeln(min);
End.