[Thrasher]

Ошибка вот в чем - сортировать нужно ВЕСЬ массив, а не со 2-го его элемента.

Вообще-то это должно выглядеть так: (я заккоментировал на мой взгляд неправильные конструкции и написал свои).

Код:

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:=0;//!!!sum := m[1];
max := m[1];
min := m[1];
for i:= 1//!!!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;