Дан массив состоящий...

Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три.

 

var
i,a,b:integer;
x: array[1..10] of integer;
begin
a:=0;
b:=0;
for i:=1 to 10 do
begin
begin
x:=random(21)-10;
write(x:4);
end;
if (x>=0)and(x mod 3=0) then
b:=b+1;
end;
writeln;
write('количество элементов положительных и кратных три = ',b);
writeln;
for i:=1 to 10 do
begin
a:=a+x;
end;
write('суммa = ',a);
end.