Определить, сколько раз встречается число 7 среди элементов массива — Pascal(Паскаль)

program Project4;

Var
  a: array [1 .. 8] of Integer;
  k, n, i: Integer;

begin
  For i := 1 to 8 do
  begin
    a[i] := Random(10);
    Writeln('a[i]=', a[i]);
  end;
  n := 0;
  For i := 1 to 8 do
  begin
    If a[i] = 7 then
      n := n + 1;
  end;
  Writeln('n=', n);
  readln;

end.