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

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