Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20 Ребята,помогите пожалуйста

Var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln(a[,c,]= ,a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln(Среднее арифметическое элементов массива равняется ,d);
end.