Задан массив 15 случайных чисел из отрезка (0,50). отсортировать данный массив по возрастанию (программа паскаль)

Var
  a:array[1..15] of integer;
  i,m,n:integer;
Begin
 Writeln('Изначальный массив ');
 for i:= 1 to 15 do
 Begin
   a[i]:= random(51);
   Write(a[i],' ');
 End;
 for i:= 1 to 15 do
   for m:= 1 to 14 do
     if a[m]>a[m+1] then Begin
       n:=a[m];
       a[m]:=a[m+1];
       a[m+1]:=n;
     End;
Writeln;
Writeln('Преобразованный массив ');
 for i:= 1 to 15 do
   Write(a[i],' ');
End.