Arrayschleife- wie geht das Sortieren am besten?

[RedFive]

Hallo,

ich sitze gerade an folgender aufgabe:

- benutzer soll länge des arrays angeben können.
- dann werden aus den gewünschten zahlen zufallszahlen zwischen 1 und 100 (ganze zahlen) gebildet
bsp: länge 5 -> zahlen 8 24 56 78 92

die zufallszahlen sollen ausgegeben werden (in nem Editfeld
es soll das maximum (die größte zahl) ausgegeben werden (in nem Editfeld)
die zahlen sollen geordnet ausgegeben werden:
a) groß zu klein
b) klein zu groß
(alles in editfeldern)

bisher hab ich das hier erreicht:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
BtnEinlesen: TButton;
BtnErzeugen: TButton;
BtnAnzeigen1: TButton;
BtnMaximum1: TButton;
EdtAnzeige: TEdit;
EdtMaximum: TEdit;
EdtSortiert: TEdit;
BtnSortieren1: TButton;
BtnSortieren2: TButton;
EdtLaenge: TEdit;
procedure BtnEinlesenClick(Sender: TObject);
procedure BtnErzeugenClick(Sender: TObject);
procedure BtnAnzeigen1Click(Sender: TObject);
procedure BtnMaximum1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;
array1 : array of integer;
zahl : integer;
n: integer;
implementation

{$R *.DFM}

procedure TForm1.BtnEinlesenClick(Sender: TObject);
begin
n:=0 ;
zahl:= strtoint(EdtLaenge.text);
setlength(array1, zahl);

end;

procedure TForm1.BtnErzeugenClick(Sender: TObject);
begin
randomize ;
for n:=0 to (zahl-1) do
array1[n]:=random(100)+1;
end;

procedure TForm1.BtnAnzeigen1Click(Sender: TObject);
begin
for n:=0 to (zahl-1) do
EdtAnzeige.Text:=EdtAnzeige.Text+ ' ' +inttostr(array1[n]);
end;

procedure TForm1.BtnMaximum1Click(Sender: TObject);
begin

end;

procedure TForm1.BtnSortieren1Click(Sender: TObject);


end;

end.

wie kriege ich nun das Maximum/Sortieren hin?

Danke schonmal im Voraus für die Hilfe!