Найдите сумму и количество положительных элементов массива (30 частей из [-30;

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