Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела .Найдите количество элементов массива , равных 3.(Pascal ABC)

Var x,i:integer;
mass:array[1..15]of integer;
begin
randomize;
x:=0;
for i:=1 to 15 do
begin
mass[i]:=random(20)+1;
if mass[i]=3 then x:=x+1;
write(mass[i]+ );
end;
writeln();
writeln(количество элементов равных трем = +x);
end.