Упорядочите элементы массива А в порядке убывания 

В Pascal ABC

uses crt;var a:array [1..100]of integer; n,i,j,k,x:integer;beginclrscr;randomize;write('n=');readln(n);writeln('Ishodnyj massiv:');for i:=1 to n do begin a[i]:=random(200);; write(a[i],' '); end;writeln;for i:=2 to n do begin x:=a[i]; j:=1; while x>a[j] do inc(j); for k:=i-1 downto j do a[k+1]:= a[k]; a[j]:=x; end;writeln('Otsortirovannyj massiv:');for i:=1 to n dowrite(a[i],' ');readlnend.