Составить ! дан массив из 6 целых чисел. определить произведение элементов больше трех

Var n,s,i: integer;
    a: array[1..6] of integer;
begin
  n:=6;  s:=1;
  randomize;
  writeln('исходный массив из 6 элементов');
  for i:=1 to n do
  begin
    a[i]:=random(10);
    write(a[i],' ');
    if a[i]>3 then s:=s*a[i];
  end;
  writeln;
  writeln('произведение элем., больших 3 = ',s);
  readln;
end.