Выяснить, будет ли массив возрастающим

Uses
 CRT;
var
 B:array [1..10] of integer;
 k,i,min,kol:integer;
begin
 write('Ââåäèòå ðàçìåð ìàññèâà: ');
 readln(k);
 randomize;
 min:=b[1];
 kol:=0;
 for i:=1 to k do
  begin
   b[i]:=random(10)-5;
   write(b[i]:3);
   if b[i]<min then
   begin
    min:=b[i];
   end;
  end;
  for i:=1 to k do
  if b[i]=min then
   begin
    inc(kol);
   end;
  writeln;
  writeln('MAX åëåìåíò è êîëè÷åñòâî ',min,'; ',kol);
  readkey
  end.

program z_array; 
uses crt; 
var ArrayA: array[1..100] of real;
    DimensionN, CounterI:byte;
    Flag: boolean;
begin  clrscr;
 writeln('Введите количество элементов массива');
 readln(DimensionN);
 
for CounterI := 1 to DimensionN do
 begin   write('[',CounterI,']= ');
  readln(ArrayA[CounterI]);
 end;  
 writeln;
 writeln('Данный массив');
for CounterI := 1 to DimensionN do
  write(ArrayA[CounterI]:0:2,' ');
  
 writeln;
 CounterI := 1;
 Flag := false;
for CounterI := 1 to DimensionN - 1 do
  if ArrayA[CounterI] > ArrayA[CounterI + 1] then
  begin    Flag := true;
   break;
  end;   
  if Flag = false then
   writeln('Массив является возрастающим')
  else
   begin
    writeln('Массив не является возрастающим ');
    writeln('[',CounterI,'] = ',ArrayA[CounterI]:0:2,' > [',CounterI + 1,']= ',ArrayA[CounterI + 1]:0:2);
   end;
   readln;
end.