Определите сумму элементов массива больших 5. Помогите ПЛИИИИЗ!)

Var
  a:array[1..10] of integer;
  s,i:integer;
Begin
  for i:=1 to 10 do Begin
    a[i]:=random(10);
    s:=s+a[i];
  End;
  Write('Сумма чисел больших пяти равна ',s);
End.