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

Program mas;const n=25;var a:array [1..n] of integer; b,i: integer; beginb:=0;for i:=1 to n dobegina[i]:=random(200)-100;if (a[i] mod 5)=0 thenb:=b+1;end;writeln('Массив: ',a,', количество элементов кратных 5: ',b);end.