Внутренняя сортировка (неправильно работает)

program vnytr_sortirovka;
Uses Crt;
const o=1000;
type  MAS = array[1 ..o] of Integer ;
var V1, M1, n, iz, ij, ip, io, kk, r, rr : Integer;
         C, U,D : MAS;
label start, finish ;
 
{------процедура сортировки Слияниями-------}
procedure sliania_sort(var a:mas;p,q : integer; U:mas;var D:mas);
var r,i,j,k : integer;
    b:mas;
begin
 writeln('сортировка слияниями');
 r:=(p+q) div 2;
 i:=p;
 j:=r+1;
 for k:=p to q do
 if (i<=r) and ((j>q) or (a[i]<a[j])) then
  begin
   b[k]:=a[i];
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   j:=j+1;
  end ;
 for k:=p to q do
 a[k]:=b[k];
end;
 
procedure Sort(var a:mas;p,q : integer); 
begin
 if p<q then 
 begin
  Sort(a,p,(p+q) div 2);
  Sort(a,(p+q) div 2 + 1,q);
  sliania_sort(a,p,q);
 end;
 
begin
write(' ');
      for a := 1 to n do
        Write(D[a], ' ');
      WriteLn;
end;
 
 
 
 
 
{------процедура пирамидальной сортировки--------}
procedure piramid_sort(C:mas; var D:mas);
var ii,i,n,j,k,x:integer;
 
begin
     writeln(' пирамидальная сортировка ');
     for i := (n div 2 ) downto 1 do
      begin
      j := i;
      while j <= (n div 2) do
      begin
      k := 2*j;
       if (k+1 <= n) and (a[k] < a[k+1]) then
       k := k+1 ;
       if a[k] > a[j] then
       begin
       x:= a[j];
       a[j] := a[k];
       a[k] := x;
       j := k
       end
       else
       break
       end;
 
       write(' ');
      for ii := 1 to n do
      Write(a[ii], ' ');
      WriteLn;
     end;
 
end;
 
begin
clrscr;
writeln(' Программа сортировки массивов методом  ');
writeln(' слияния и методом пирамидальной сортировки ');
writeln('  ');
writeln('  ');
start: WriteLn(' Введите размерность массива ');
writeln(' ');
write(' ');readln(n);
writeln(' Выберите способ задания массива ');
writeln(' 1 - для ручного ввода массива ');
writeln(' 0 - для загрузки случайного массива ');write(' ');
readln(V1);
If V1=0 then
          begin
          Randomize;
          writeln(' загрузка случайного массива ');
          For iz := 1 to n do begin  a[iz] :=Random(10*n);
          end;
          end
else begin
      writeln (' ручной ввод массива ');
      { процедура заполнения массива }
 
       For io := 1 to n do
      begin
            writeln(' введите ',io, ' элемент матрицы  ');
      write(' ');read(kk);
      D[io] := kk;
    end;
 
     end;
writeln(' начальная матрица ');
writeln;
write(' ');
  for ij:= 1 to n do write(A[ij]:2,' ');
writeln;
writeln;
writeln(' Выберите тип сортировки');
writeln(' 0 - сортировка слияниями');
writeln(' 1 - пирамидальная сортировка');
writeln;write(' ');
readln(M1);
if M1=0 then sliania_sort(U,D)
        else piramid_sort(C,D);
 
WriteLn(' ');
WriteLn(' ');
writeln(' отсортированная матрица ');
WriteLn(' ');
write(' ');
  for ip:= 1 to n do
  begin write(a[ip]:2,' '); end;
writeln(' ');
writeln(' Хотите повторить сортировку для другой матрицы ? ');
writeln(' 1 - повторить');
writeln(' 0 - выход ');
Write(' ');
readln(rr);
If rr=0 then goto finish
else goto start;
finish:
end.