Выяснить, какое число встречается раньше — положительное или отрицательное

program pr;
 
type
  arr = array [1..100] of integer;
 
var
  a: arr;
  i, n: integer;
  dv: double;
 
procedure fir(var x: arr);
var
  j: integer;
begin
  for j := 1 to n do
    if a[1] > 0 then
    begin
      writeln;
      writeln('Раньше встречается положительное');
      break;
    end
    else if a[1] < 0 then
    begin
      writeln;
      writeln('Раньше встречается отрицательное');
      break;
    end;
end;
 
procedure second(var x: arr);
var
 
  j,  i: integer;
  f: boolean;
begin
  f := true;
  for j := 2 to n do
    if a[j] < a[j - 1] then
      f := false;
  if f then 
    writeln('Возрастающая') 
  else writeln('Невозрастающая');
end;
 
procedure three(var x: arr);
var
  f: boolean;
  b: arr;
  j: integer;
begin
  f := false;
  for j := 1 to n do
    if a[j] mod 2 = 0 then
    begin
      f := true;
    end;
  if f = true then
  begin
    for j := 1 to n do
      if a[j] mod 2 = 0 then
      begin
        b[j] := a[j];
        write(b[j]:3);
      end;
  end
  else writeln('В массиве нет чётных элементов');
end;
 
procedure four(var x: arr; var d: double);
begin
  var
  j, min, max: integer;
  begin
    max := a[1];
    min := a[1];
    for j := 1 to n do
    begin
      if a[j] > max then max := a[j];
      if a[j] < min then min := a[j];
    end;
    d := abs(max - min);
    writeln;
  end;
end;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
  write(i, ' элемент= ');
    read(a[i]);
  end;
  for i := 1 to n do
    write(a[i]:3);
  fir(a);
  second(a);
  three(a);
  four(a, dv);
  writeln('Длина числовой оси =', dv );
end.