Найти количество положительных элементов в массиве размером 10 элементов.

program zz1;
var mas:array[1..10] of integer;
i,min,k:integer;
begin
for i:=1 to 10 do //заполняем массив случайными числами от -10 до 10
mas[i]:=random(21)-10;
for i:=1 to 10 do //выводим полученный массив на экран
write(mas[i],' ');
writeln; //переходим на новую строку для вывода
for i:=1 to 10 do
if mas[i]>0 then k:=k+1; //проверяем, если число из массива больше нуля, то считаем его
write('количество положительных элементов в массиве - ',k); //выводим ответ
end.