Найти максимальный из двузначных чисел и минимальный из трехзначных.

program Massiv;
type TDMassiv = record
  intMassiv : array of Integer // Создали тип "динамический массив"
end;
var 
  N, I, K, H, Min : Integer;
A : TDMassiv; // Создали переменную A нового типа TDMassiv
Begin
 Assign(F, input.txt)
 Assign(G, output.txt); Rewrite(G);
 Randomize;
 Read(F, N); // 1 строка файла 999 чисел
 SetLength(A, N) // Определяем, что массив А будет размера N элементов.
 for I=1 to N do
   begin
     A[I] := Random(999); // Заполняем массив случайными числами [0..999]
   end;
 K := 0; // k - счетчик трехзначных чисел
 for I=1 to N do
   begin
     if (A[I] >= 100) AND (A[I] <= 999) AND (I = 100) then
       Min := A[I]
       //K := K+1; // Считаем трехзначные числа
     if Min > A[I] then
       Min := A[I]
   end;
   Write(G,Min);
 H := 0; // h - счетчик двузначных чисел
 for I=1 to N do
   begin
     if (A[I] >= 10) AND (A[I] <= 99) AND (I = 100) then
      Min := A[I]
      //H := H+1; // Считаем двузначные числа
      if Min > A[I] then
       Min := A[I]
   end;
   Write(G, Min);
 if K := H then
   Writeln ('0') 
    else 
   Writeln('Количество чисел ', Min); // Выводим посчитанное количество чисел на экран
   Write(G, 0);
END.

var
  i, n, count2, max2, count3, min3 : Integer;
begin
  ReadLn(n);
  count2:=0; max2:=0;
  count3:=0; min3:=1000;
  for i:=1 to n do
    begin
      Read(n);
      
      if (n>9) and (n<100) then
        begin
          inc(count2);
          if n>max2 then max2:=n;
        end;
      
      if (n>99) and (n<1000) then
        begin
          inc(count3);
          if n<min3 then min3:=n;
        end;
    end;
    
  if count2=count3 then
    WriteLn(0)
  else if count2>count3 then
    WriteLn(max2)
  else
    WriteLn(min3);
end.