Массив из 10 частей заполнить случайными числами и найти среднее арифметическое

program avrg;

var A: array [1..10] of integer;

s,i:integer;

begin

randomize;

s:=0;

for i:= 1 to 10 do

begin

A[i]:=random(101); // случайное число из промежутка 1..100

write(A[i]:4); // вывод частей массива

if a[i] mod 2 gt; 0 then s:= s + A[i]; //сумма нечетных частей

end;

writeln();

writeln(Среднее арифметическое нечетных значений: , s / i)

end.