С клавиатуры вводится последовательность ненулевых целых чисел. 0 - конец последовательности. Выяснить, является ли произведение отрицательных чисел отрицательным?

И вторая задачка
С клавиатуры вводится последовательность из N целых чисел. Подсчитать сумму чисел, больших заданного числа А.

Помогите пжлст)

1.var a,z:integer;beginz:=1;readln(a);while a<>0 do begin if a<0 then z:=-z; readln(a); end;if z=-1 then writeln('Произведение отрицательных чисел отрицательно')else writeln('Произведение отрицательных чисел положительно');end.Пример:12-45-87-200Произведение отрицательных чисел отрицательно2.var n,a,x,s,i:integer;beginreadln(n,a);s:=0;for i:=1 to n do begin readln(x); if x>a then s:=s+x end;writeln('s = ',s);end.Пример:5 304815802932s = 160