Дан массив из 10 частей. Найдите количество частей, огромных 3, но

program zz1;
var mas:array[1..10] of integer;
i,p,max:integer;
begin
for i:=1 to 10 do //получаем начальный массив случайным образом от -5 до 15
mas[i]:=random(21)-5;
for i:=1 to 10 do
write(mas[i], ); //выводим полученный массив на экран
writeln; //перебегаем на иную строчку для вывода
for i:=1 to 10 do
if (mas[i]gt;3) and (mas[i]lt;10) then p:=p+1; //проверяем, если число из массива больше, чем три, и меньше чем 10, то считаем его

write(количество чисел больше 3-х и меньше 10=,p) //выводим ответ
end.