Помогите с Turbo Pascal пожалуйста!!! Определить сумму положительных и отрицательных чисел массива

program XXX;
const R = 20;
var mas : array [1..R] of integer;
var i:integer;
sumP, sumO : integer;

begin

for i:=1 to R do read (mas[ i]); ввод чисел
sumP:=0
sumO:=0;

for i:=1 to R do
if mas[ i] <0 then sumO := sumO + mas [ i]
else sumP := sumP + mas [ i];

writeln ('отрицательное', sumO ,' положительное ', sumP);
readln;
end.

вроде так