Упорядочить одномерный числовой...

Упорядочить одномерный числовой массив по возрастанию(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:=random(19)-9;  
 write(a:3);   end;  writeln;
 k:=0;  for i:=1 to n-1 do   f
or j:=i+1 to n do    if a>a[j] then     begin      
c:=a;      
a:=a[j];    
 a[j]:=c;      
inc(k);    
end;  
writeln('результат сортировки: ');
 for i:=1 to n do   write(a:3);  
writeln;  
writeln('кол-во перестановок = ',k);
end.