Используя функцию random, найти все числа кратные 5 в паскале, массив взять 25 элементов, диаозон от - 100 до 100

Program mas;

const n=25;

var a:array [1 ... n] of integer;

b, i: integer;

begin

b:=0;

for i:=1 to n do

begin

a[i]:=random (200) - 100;

if (a[i] mod 5) = 0 then

b:=b+1;

end;

writeln ('Массив: ', a,', количество элементов кратных 5: ', b) ;

end.