Пожалуйста посчитайте пожалуйста

Щось типу такого:

const s = 10; // Размер массива

var

   y,z:integer;

   a: array [1..s] of integer;

   i: integer;

begin

z:=0;

y:=0;

 write('Введите элементы массива: ');

 for i:=1 to s do

   read(a[i]);

   for i:=1 to s do

   begin

   if a[i]>0 then

   z:=z+a[i]

   else

   y:=y+a[i];

   end;

 write('Вывод: ',z,y:4);

end.