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