[The Shadow]

Ну можно так:

Код:

procedure TfmExample.BEnterClick(Sender: TObject);
const
MAX_VALUE = 100+1;
var
   m: array of Integer;
   i: Integer;
   max,min: Integer;
   sum: Real;
   N: Integer;
begin
N:=StrToInt(Edit1.Text);
SetLength(m, N)
for i:=0 to N - 1 do
m[i]:= Random (MAX_VALUE);
sum:=0;
max := m[0];
min := m[0];
for i:= 0 to N - 1 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;

Вроде все правильно.