Создать программу сортировки массива в порядке возрастания его элементов - Turbo Pascal

uses crt;
const m=20;
type mas=array[1..m] of integer;
procedure sort(var a:mas);
var i,j,c:integer;
begin
for i:=2 to m do
 begin
  c:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]>c) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=c;
 end;
writeln('Отсортированный массив');
for i:=1 to m do
write(a[i]:3);
end;
var a:mas;
    i:integer;
begin
clrscr;
writeln('Исходный массив');
a[1]:=2;
write(a[1]:3);
for i:=2 to m do
 begin
  a[i]:=(37*a[i-1])mod 64;
  write(a[i]:3);
 end;
writeln;
sort(a);
readln
end.