ПОМОГИТЕ ПОЖАЛУЙСТА!!

var
z,y,i: integer;
a: array [1..10] of integer;
begin

for i:=1 to 10 do read (a[i]);
y:=0; z:=1;
for i:=1 to 10 do
begin
 if a[i]gt;0 then
  z:=z+a[i]
  else
 y:=y+a[i];
end;
writeln (y=,y);
writeln (z=,z);
end.