Отсортировать массив в порядке возрастания - Turbo Pascal

uses crt;
const n=20;
var  a:array[1..n]  of integer;
i,j,k:integer;
 
BEGIN
clrscr;
  for i:=1 to n do
   a[i]:=random(20)-10;
 
   for i:=1 to n do
    write(a[i]:4);
    writeln;
 
    for j:=1 to n-1 do
     for i:=1 to n-1 do
      if a[i]>a[i+1] then
       begin
        k:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=k;
       end;
       writeln;
       for i:=1 to n do
        write(a[i]:4);
readkey;
END.