Программа на массивы. Вознаграждение!

[soon-end]

Помогите плиз решить задачку:
Вывести на экран отдельно позитивные элементы массива вещества х(16) и отдельно негативные элементы. Найти максимальный элемент среди позитивных и минимальный среди негативных элементов.
За правильное написание программы вознаграждение

[DoDge_VipeR]

max:=0;
for i:=1 to 16 do
if x[i]>0 then begin
write(x[i]:4);
if x[i]>max then max:=x[i];
end;
writeln;
writeln(' +max=',max);
max:=0;
for i:=1 to 16 do
if x[i]<0 then begin
write(x[i]:4);
if x[i]<max then max:=x[i];
end;
writeln;
writeln(' - min=',max);