Задать массив динамической памяти, затем найти сумму всех тех чисел, которые кратны 5- Pascal(Паскаль)

type a=array[1..5]of integer;
var p:^a;
    i,s:integer;
begin
new(p);
randomize;
s:=0;
for i:=1 to 5 do
begin
        p^[i]:=random(20);
        write(p^[i]:4);
        if p^[i] mod 5=0 then s:=s+p^[i];
end;
writeln;
for i:=1 to 5 do
write(p^[i]:4);
writeln;
writeln('Сумма= ',s);
dispose(p);
end.