заполните массив случайными числами в спектре 0..100 и подсчитайте раздельно среднее

Program q;
const N=10; //количество частей массива
var
a:array[1..N] of integer;
b,c,d:integer;
begin
randomize;
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]lt;50)then
begin
c:=c+1;
d:=d+a[b];
end;
writeln(d/c);
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]gt;=50)then
begin
c:=c+1;
d:=d+a[b];
end;
write(d/c);
end.