Отсортировать массив по возрастанию

var a:array[1..100] of integer;
    p,sl,j,f,k,i,n,m1,c:Integer;
begin
  Randomize;
  //n:=Random(15);
  Readln(n);
  for i:=1 to n do
    begin
      a[i]:=Random(200)-100;
      writeln(a[i]);
    end;
 
  i:=1;
  //p:=0;
  while (i<=n) do//н-1 чтобы в последующем не рассматривать ситуацию
    begin
      k:=1;
      while (k<=(n-i)) do
       begin
        sl:=a[k+1];//запоминаем "следующий элемент
        if a[k]>sl then//сделаем массив возрастающим,поэтому если первый элемент -больше последующего, то
          begin //переставим их местами
            a[k+1]:=a[k];//по адресу а(к+1) пропишется элемент находящийся в а(к)
            a[k]:=sl;//а по адресу а(к) пропишется элемент находящийся ранее по адресу а(к+1)
          end;
        inc(k);
       end;
      //if k=n then begin
      inc(i);
    end;
 
  writeln('novyi');
  for k:=1 to n do
      writeln(a[k]);
      Readln;
 
end.

for i:=1 to n-1 do for k:=1 to n-i do
  if a[k]>a[k+1] then begin
    s1:=a[k+1]; a[k+1]:=a[k]; a[k]:=s1;
  end;