Требуется проверить, упорядочен ли массив по возрастанию

yes:=true;
for i:=1 to 59 do
  if a[i]>a[i+] then
    begin
      yes:=false;
      break;
    end;

Program massiv;
uses crt;
const n=60;
var a:array [1..n] of integer;
    i,k:integer;
begin
clrscr;
writeln('vvedite massiv' );
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Massiv:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=0;
for i:=2 to n do
if (A[i]<A[i-1])then{если меньше предыдущего}
 begin
  write('Ne yavlyaetsa!');{нет}
  readln;
  k:=1;{фитсируем(или флаг менять, как выше написано)}
  exit;{заканчиваем прогу}
 end;
if k=0 then write ('Yavlyaetsa!');{если флог не сменился, да}
readln
end.

Program massiv;
uses crt;
const n=30;
var a:array [1..n] of integer;
    i,k:integer;
    sr:real;
begin
clrscr;
randomize;
writeln('Massiv:');
sr:=0;
for i:=1 to n do
 begin
  a[i]:=random(50);
  sr:=sr+a[i];
  write(a[i],' ');
 end;
writeln;
sr:=sr/n;
writeln('Srednee=',sr:0:2);
k:=0;
for i:=1 to n do
if a[i]>sr then
k:=k+1;
write('Kol=',k);
readln
end.