найдите сумму всех положительных частей одномерного массива

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