ВЫвести на экран все двузнычные числа кратные 3 и оканчивающиеся на 3. Найти их среднее арифметическое (Pascal)

Uses crt;

const b = 10;

var x=0, y=0; integer;

a = array[10 ... b] of integer;

begin

for x:=0 to b do

...

if (a[i]mod3=0 and a[i]mod10=3) there begin

x:=x+1;

y:=y+a[i]; end;

writeln (x, y);

end.