sortier verfahren

[ScrollbarKopf]

Hallo ähm brauche hilfe muss ein programm das die größte zahl nehemn soll und diese abspeichern und dann die nächst größe und wieder abspeichern und immer so weiter
bitte um schnelle antwort habe bis jetzt

Code:

var
e:array [1..10] of integer
x,r,i : integer;
sortiert : boolean;



begin
randomize
for x := 1 to 10 do
e[x] := random (100);
repeat
sortiert := true;
for 1 to 10 do
if e[x] > e[x-1] then
begin
r:= e[x]

Weiter checke ich es nicht bedanke mich für eure schnellen antworten
und den rest des quellcodes