Введите целое число n>0 и последовательность из n вещественных чисел, среди которых должны быть отрицательные — Pascal(Паскаль)

Program PascalGuru;

uses crt;

var
  i, n: integer;
  A: array [1 .. 100] of real;
  min, max: real;

begin
  write('Vvedite N: ');
  readln(n);
  writeln('Vvedite ', n, ' cisel:');

  for i := 1 to n do
  begin
    write(i, ': ');
    readln(A[i]);
  end;

  clrscr;

  writeln('Vvedennye chisla:');
  for i := 1 to n do
    write(A[i]:8:2);
  { ------------------------------------------ }
  for i := 1 to n do
    if A[i] < 0 then
    begin
      max := A[i];
      break;
    end;

  for i := 1 to n do
    if A[i] < 0 then
      if A[i] > max then
        max := A[i];
  { ------------------------------------------ }
  for i := 1 to n do
    if A[i] > 0 then
    begin
      min := A[i];
      break;
    end;

  for i := 1 to n do
    if A[i] > 0 then
      if A[i] < min then
        min := A[i];
  { ------------------------------------------ }

  writeln;
  writeln;
  writeln('MAX(-): ', max:0:2);
  writeln('MIN(+): ', min:0:2);

  readln;

end.