Задать массив динамической памяти А(n). В массиве заменить все элементы больше 7 на число 7. Найти количество таких элементов — Pascal(Паскаль)

type a=array[1..5]of integer;
var p:^a;
    i,k:integer;
begin
new(p);
randomize;
k:=0;
for i:=1 to 5 do
begin
    p^[i]:=random(20);
    write(p^[i]:4);
        if p^[i]>7 then
        begin
                inc(k);
                p^[i]:=7;
    end;
end;
writeln;
for i:=1 to 5 do
write(p^[i]:4);
writeln;
writeln('Количество= ',k);
dispose(p);
end.