дан одномерный массив 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, ' элементов массива');  readlnend.