Нахождение чисел с максимальным произведением

const n = 10;
var i, ii, in1, in2, ip1, ip2: integer;
    a: array [1..n] of integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to n do
    begin
      a[i] := random(198) - 99;
      write(a[i]: 4)
    end;
  writeln;
  if n < 2
    then writeln('Error: array too short')
    else begin
      in1 := 0;
      in2 := 0;
      ip1 := 0;
      ip2 := 0;
      for i := 1 to n do
        if a[i] < 0
          then begin
            if in1 = 0
              then in1 := i
              else if in2 = 0
                then in2 := i
                else if (a[i] < a[in1]) or (a[i] < a[in2])
                  then if a[in1] < a[in2]
                    then in2 := i
                    else in1 := i
          end
          else begin
            if ip1 = 0
              then ip1 := i
              else if ip2 = 0
                then ip2 := i
                else if (a[i] > a[ip1]) or (a[i] > a[ip2])
                  then if a[ip1] > a[ip2]
                    then ip2 := i
                    else ip1 := i
          end;
      case (2 * ord(ip2 > 0) + ord(in2 > 0)) of
        0: begin
             i := in1;
             ii := ip1
           end;
        1: begin
             i := in1;
             ii := in2
           end;
        2: begin
             i := ip1;
             ii := ip2
           end;
        3: if a[in1] * a[in2] > a[ip1] * a[ip2]
             then begin
               i := in1;
               ii := in2
             end
             else begin
               i := ip1;
               ii := ip2
             end
      end;
      writeln('Max product = a[', i, '] * a[', ii, '] = ', a[i] * a[ii])
    end;
  readln
end.

const n = 10;
var
  i: integer;
  a: array [0..n] of integer;
  b : boolean;
  first, second : array[boolean] of integer;
 
begin
  randomize;
  writeln('Source array:');
  for i := 1 to n do
  begin
    a[i] := random(198) - 99;
    write(a[i]: 4)
  end;
  writeln;
  if n < 2 then writeln('Error: array too short')
  else if n = 2 then writeln('Single combination : a[1]*a[2] = ', a[1]*a[2])
  else
  begin
    for i := 1 to n do
    begin
      b := a[i] > 0;
      if first[b] = 0 then first[b] := i
      else if a[i] > a[first[b]] = b then
      begin
        second[b] := first[b];
        first[b] := i;
      end
      else
        if (second[b] = 0) or (a[i] > a[second[b]] = b) then second[b] := i;
    end;
    b := a[first[true]]*a[second[true]] > a[first[false]]*a[second[false]];
    writeln('Max product = a[',first[b], '] * a[', second[b], '] = ',
      a[first[b]] * a[second[b]]);
  end;
  readln
end.