Задан массив a1, a2, …, an. Если массив упорядочен, то оставить без изменений, иначе переставить элементы ( Delphi )

[Natashakosmos]

Помогите решить задачку в DELPHI
Задан массив a1, a2, …, an. Если элементы массива упорядочены по неубыванию, т.е. a1≤a2≤…≤an, то оставить массив без изменений и вывести на экран соответствующую информацию, в противном случае переставить элементы массива в обратном порядке, т.е. an, an-1,…, a1.

[Stilet]

var b:boolean;
...
b:=true;
for i:=2 to n do if a[i-1]>a[i] then begin b:=false; break;end;
if b then for i:=1 to n do write(a[i]:5)
else for i:=n downto 1 do write(a[i]:5);
...

Идея ясна?