Задан массив 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.