Пожалуйста помогите, очень нужно.
Сформировать одномерный массив G из 10 элементов, где элементы массива G[i] - целые случайные числа в пределах [5; 40]. Найти количество элементов кратных 7 и вывести эти элементы массива.

Program dasf;var z,b,i: integer;   A: Array[1..100] of integer;    beginb:=0;For i:=1 to 100 do  begin    z:=random(36)+5;    A[i]:=z;    If z div 7=0 then b:=b+z;    Writeln(A[i]);  end;Writeln('Сумма всех чисел массива, кратных 7: ',b);end.