[Lukas]

Народ помогите разобраться с программой которая создает массив случайных целых чисел, подсчитывает их среднее арифметическое, а также определяет и выводит на экран минимальное и максимальное из этих чисел.
Кому не трудно посмотрите plizzz и скажите, что я сделал не так! Прога не может подсчитать мин. макс. числа!

Код:

procedure TfmExample.BEnterClick(Sender: TObject);
const
N = 1000;
MAX_VALUE = 100+1;
var
   m: array [1..N] of Integer;
   i: Integer;
   max,min: Integer;
   sum: Real;
begin
for i:=1 to N do
m[i]:= Random (MAX_VALUE);
sum := m[1];
max := m[1];
min := m[1];
for i:= 2 to N do
begin
 sum :=sum+m[i];
if m[i]<min then min:= m[i]
else if m[i]>max then max:= m[i]
end;
 mmOutput.Lines.Add('Минимальное значение данного массива равно '+inttostr(min));
 mmOutput.Lines.Add('Среднее арифметическое число данного массива равно '+floattostr(sum/N));
 mmOutput.Lines.Add('Максимальное значение данного массива равно '+inttostr(max));
end;