помогите с программой в Паскаль

[Blonde_Bimbo]

задан одномерный массив X(N) (N<=50) Выяснить, упорядочены ли элементы массива по убыванию

[alex_fcsm]

var a:array[1..50] of integer;
     i:integer;
     flag:boolean;

begin
randomize;
for i:=1 to 50 do
 a[i]:=random(10);
flag:=true;
for i:=2 to 50 do
 if a[i]>a[i-1] then flag:=false;
if flag then writeln('Yes')
  else writeln('No');

end.