на Pascal

[Axellen]

Разработать процедуру сортировки массива по убыванию .

[ROMA2PVT]

uses crt;
Type
    a=array[1..20] of integer;
var
    i,j,n,x:integer;
    mas:a;
    Procedure Sort(Var k:a; l:integer);
    Begin
    for i:=1 to l do
    for j:=i to l do
   if k[i]<k[j] then
    begin
     x:=k[i];
     k[i]:=k[j];
     k[j]:=x;
    end;
    end;
    
    begin
clrscr;
randomize;
write('Введите количество элементов массива: ');
readln(n);
writeln('Исходный массив K: ');
for i:=1 to n do
    begin
     mas[i]:=random(10)-5;
     write(mas[i],' ');
 end;
 writeln;
 
 Sort(mas,n);
 
     for i:=1 to n do
     begin
     write(mas[i],' ');
     end;
     writeln;
 end.