Упорядочить одномерный числовой массив по возрастанию (Pascal)

uses crt; const n=10; var a: array[1… n] of integer; i,j,k: byte; c: integer; begin randomize; clrscr; writeln ('исходный массив: '); for i: =1 to n do begin a[i]: =random (19) -9; write (a[i]: 3); end; writeln; k: =0; for i: =1 to n-1 do for j: =i+1 to n do if a[i]>a[j] then begin c: =a[i]; a[i]: =a[j]; a[j]: =c; inc (k); end; writeln ('результат сортировки: '); for i: =1 to n do write (a[i]: 3); writeln; writeln ('кол-во перестановок=',k); end.