Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение которых равно 4 (в паскаль) free pascal

Var i,k : integer;
 a: array[1..10] of integer;
Begin
  for i := 1 to 10 do begin
    a[i] := random(7) + 3;
    if a[i] = 4 then k:= k + 1;
  end;
  writeln(k);
End.