Дан одномерный массив A(N) a(1) a(2),....,a(n) -целые заменить все большеие члены массива числом 7 .найти колличество таких членов

Var  A: array [1..100] of integer;
  i, n, k: integer;
begin
  writeln(Введите количество элементов массива);
  readln(n);
  for i := 1 to n do
   begin
    A[i] := 1 + random(10);
    writeln(A[, i, ]=, A[i]:3);
    if A[i] > 7 then A[i] := 7;
    if A[i] = 7 then inc(k);
  end;
  writeln(Всего заменено , k, элементов массива);
  readln
end.