В массиве случайных чисел подсчитать произведение чисел, кратных 3 и определить среди них минимальное-Pascal(Паскаль)

Program kratnie;
uses crt;
Var a:array[1..100] of integer;
    i,n,mn,k:integer;
    s:real;//в longint может не войти
Begin
clrscr;
randomize;
writeln('Razmer massiva n=');
readln(n);
s:=1;
mn:=100;
writeln('Massiv:');
for i:=1 to n do
  begin
   a[i]:=random(50)+1;//без нолей
   write(a[i]:4);
   if a[i] mod 3=0 then
    begin
     k:=1;
     s:=s*a[i];
     if a[i]<mn then mn:=a[i];
    end;
  end;
writeln;
if mn=100 then write('kratnyh 3 net!')
else
 begin
  writeln('proizvedenie etih chisel:',s:0:0);
  write('minimalnoe=',mn);
 end;
readln
end.