Выяснить, какое число в массиве встретится ранее – положительное или отрицательное - Pascal ABC

program a1;
var a: array[1..15] of integer;
    min,max,o,i:integer;
begin 
randomize;
for i:=1 to 15 do 
    begin
   a[i]:=-100+random(200);
   write(a[i]:3);
   end;
   writeln;
   min:=a[1];
   if a[1]<0 then begin 
                  writeln('первый элемент отрицательный');
                  for i:=1 to 15 do  if min>a[i] then min:=a[i];
                  o:=min*min;
                  write('min=',min,';min^2=',o);                  
                  end
             else begin 
                  writeln('первый элемент положительный;');
                  for i:=1 to 15 do if max<a[i] then max:=a[i];
                  o:=max*max;
                  write('max=',max,';max^2=',o);
                  end;
                  writeln;
 
 
end.