Написать программу сортировки массива из семи чисел равных индексу по убыванию, написать трассировку программы . паскаль

var a: array[0..9] of integer;

i,k,b,c: integer;

begin

for i: =0 to 9 do

begin

a[i]: =random(100);

writeln(i+1,' число: ',a[i]);

end;

for i: =0 to 9 do

begin

for k: =0 to 9 do

begin

if a[i]

begin

b: =a[i];

c: =a[k];

a[i]: =c;

a[k]: =b;

k: =0;

end;

end;

end;

writeln('числа по возрастанию: ');

for i: =0 to 9 do

writeln(i+1,' число: ',a[i]);

begin

end;

end.

тут немного больше чем надо