Помогите решить срочно если можно: Дан массив В(10). Найти, упорядочены ли

Program z13;  Var a: array [1..1000] of integer;       b: array [1..1000] of integer;       i,j,n,k:integer;Begin  write('Введите N = '); readln(n);  for i:=1 to n do  begin    write('N[',i,'] = ');    readln(b[i]);  end;    for i:=1 to n do    write(b[i],' ');  writeln;    for i:=1 to n do    a[i]:= b[i];      for i:=1 to n-1 do    for j:=1 to n-1 do      if (a[j] gt; a[j+1]) then swap(a[j],a[i+1]);    k:=0;  for i:=1 to n do    if(a[i] = b[i]) then k:= k + 1;      if (k = n) then writeln('Все элементы массива упорядочены по возрастанию')             else writeln('Элементы не упорядочены');End.