Решить программу на языке ! только примерно по примеру заранее !

type

massiv = array [1..10] of integer;

var

mass : massiv;

i , j , n , b: integer;

begin

randomize;

write('Введите длину массива : ');readln(n);

for i:=1 to n do

begin

mass[i] := random(10);

write(mass[i], '  ');

end;

 for i:=1 to n-1 do

 for j:=1 to n-i do

 begin

 if (mass[j] < mass[j+1]) then

 begin

 b := mass[j];

 mass[j] := mass[j+1];

 mass[j+1] := b;

 end;

 end;

 writeln;  

 for i:=1 to n do

  write(mass[i], '  ');

  readln;

end.

Объяснение: немного видоизменен, я не использовал downto, а также использовал переменнную b, вместо k