Программа для паскаль. Найти малый элемент массива делящийся на 3.

Вроде правильно
const n= ;(поставь хоть какое положительное число, это количество частей в массиве)
var A:array [1..n] of real; i: integer; min: real;
begin
for i:=1 to n do
begin
readln (a[i]);
writeln ('a[i', i, ']=', a[i]);
end;
min:=a[i];
for i:=1 to n do
if a[i] mod 3=0 then if a[i]lt;min then min:=a[i];
if (a[1]=min) and (a[1] mod 3lt;gt;0) then writeln ('Нет чисел, делящихся на 3') else writeln (min);
end.