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

{Задан одномерный массив А(N).
Выяснить, какое число в массиве встретится ранее - положительное или
отрицательное ( нули не рассматривать ). Если положительное - найти
в массиве максимальный элемент и его местоположение, если отрицательное -
минимальный элемент и его расположение.Результат отпечатать.}
const
  n=20;
var
  a:array[1..n] of integer;
  i,kn,kp,max,min,imax,imin:integer;
begin
  randomize;
  kp:=0;
  kn:=0;
  Writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=random(n) - n div 2;
      write(a[i]:4);
    end;
  for i:=1 to n do
    if a[i]>0 then
      begin
        kp:=i;
        break;
      end;
  for i:=1 to n do
    if a[i]<0 then
      begin
        kn:=i;
        break;
      end;
  writeln();
  if kp<kn then
    begin
      max:=a[1];  imax:=1;
      for i:=2 to n do
        if a[i]>max then
          begin
            max:=a[i];
            imax:=i;
          end;
      writeln('Максимум: ',max,' в позиции: ',imax);
    end
  else
    begin
      min:=a[1];  imin:=1;
      for i:=2 to n do
        if a[i]<min then
          begin
            min:=a[i];
            imin:=i;
          end;
      writeln('Минимум: ',min,' в позиции: ',imin);
    end;
  readln;
end.