Вопрос Выстроить массивы по порядку. delphi

[bahtik121]

Дан одномерный массив. Выстроить их по порядку возрастания/убывания.
Пример на картинке.
//otvet.imgsmail.ru/download/68327272_4b8fde82878d7285581ae7f2f9d751ed_800.png

 

[Pro1337]

type TMyArray = TArray< integer >; //without spaces procedure PrintArray(a: TMyArray); var i:integer begin for i:=0 to Length(a)-1 do write(a, ); Writeln end; a: TMyArray; i: integer; begin SetLength(a, 10); for i:=0 to Length(a)-1 do a:=Random(100); PrintArray(a); a.Sort; PrintArray(a); // add reverse sorting using anonymous block for Sort() here end.