Составить алгоритм поиска минимума среди элементов массива кратных трём — Pascal(Паскаль)

uses
  crt;
const
  N=10;
var
  a:array[1..N]of integer;
  i,min:integer;
begin
  clrscr;
  writeln('----:');
  min:=0;
  for i:=1 to N do
  begin
    a[i]:=random(100)-50;
    if (a[i] mod 3 = 0) and (min=0) then
      min:=i;
    write(a[i],' ')
  end;
  writeln;
  if min<>0 then
  begin
    for i:=1 to N do
      if (a[i] mod 3 = 0) and (a[i]<a[min]) then
        min:=i;
    writeln('Мин. a[',min,']=',a[min])
  end
  else
    writeln('Нет кратности 3!')
end.