Дан одномерный массив a(n) a(1) 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.