Помогите с Pascalem ABC. Создать массив из 12 Случайных чисел со значениями от - 23 до 23 Провести его вычислить количество и Сумму чисел кратных 5.

var i, s: integer;

n: real;

d: array [1 ... 12] of integer;

begin

for i:=1 to 12 do

begin

d[i]: = random (47) - 23;

write (d[i], ' ');

if d[i] mod 5 = 0 then

begin

s : = s + 1;

n: = n+d[i];

end;

end;

writeln ('Количество чисел: ', s,'. Сумма чисел: ', n, '.')

end.