Упорядочить одномерный числовой массив по возрастанию (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 f

or 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.