не могу решить задачу на паскале

Question

Дано натуральное число n и целые числа a1, a2..an. Выясните какое число встречается раньше положительное или отрицательное если же все числа 0 то сообщите об этом

Прихожанин Церкви · Accepted Answer

const msg:array[-1..1] of string = ('Negative','Zero','Positive'); 
... 
for j:=1 to n do 
if a[j]<>0 then begin 
writeln(msg[sign(a[j])]); 
readln; 
halt(0); 
end; 
writeln('All zeroes');