вывод чисел по убыванию и возрастанию.Читать пояснение - Pascal - Ответ 627907

Program Zad4;
uses crt;
Var i,j,n,b,k:Integer;
    A:Array [1..1000] of Integer;
Begin
clrscr;
Write('Введите количество чисел n=');
Readln(n);
For i:=1 to n do
 Begin
  Write('A[',i,']=');
  Readln(A[i]);
 End;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
For i:=1 To n Do
for j:=1 to n DO
if (a[i]=a[j])and(i<>j)then k:=1;
if k=0 then
 begin
  writeln('Все числа различные');
  For i:=1 To n-1 Do
  for j:=i+1 to n DO
  IF A[i]>A[j] then
   Begin
    b:=A[i];
    A[i]:=A[j];
    A[j]:=b;
   end;
  writeln('Массив по возрастанию:');
  for i:=1 to n do
  write(a[i],' ');
 end
else
 begin
  writeln('Не все числа различные');
  For i:=1 To n-1 Do
  for j:=i+1 to n DO
  IF A[i]<A[j] then
   Begin
    b:=A[i];
    A[i]:=A[j];
    A[j]:=b;
   end;
  writeln('Массив по убыванию:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.