Дан массив целых чисел из 12 элементов. поменять местами первый отрицательный с первым положительным.

Var a: array[1..12] of integer;
i,z: integer;
f:boolean;
begin
for i:=1 to n do 
readln(a[i]);
z:=a[1];
f:=false;
for i:=2 to 12 do
if not (f) and a[i]*a[1] then begin
a[1]:=a[i];
a[i]:=z;
f:=true;
end;
for i:=1 to 12 do
write(a[i], ' ');
end.