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