Помогите пожалуйста написать программу по информатике:
Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых чисел.

program ex; 
var a,k,s,pr,i:integer;mas:array [0..10] of integer; 
begin 
pr:=1; 
for i:=1 to 10 do   
readln(mas[i]); 
 for i:=1 to 10 do   begin   
 if mas[i]gt;0 then   
  pr:=pr*mas[i]   
 else      s:=s+mas[i]; 
 end; 
 for i:=1 to 10 do  
 begin    
if mas[i]lt;0 then       k:=k+1;    
end; 
writeln(Произведение=,pr);
 writeln(Сумма=,s); 
writeln(Количество=,k) 
end.