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