слияние двух упорядоченных массивов в один упорядоченный

Program SlivSort;
Var A,B : array[1..1000] of integer;
N : integer;
Procedure Sliv(p,q : integer); {процедура сливающая массивы}
Var r,i,j,k : integer;
Begin
r:=(p+q) div 2;
i:=p;
j:=r+1;
for k:=p to q do
if (i<=r) and ((j>q) or (a<a[j]))>;
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(p,q : integer); {p,q — индексы начала и конца сортируемой части массива}
Begin
if p

{============================================================================}
 {слияние 2 уже отсортиров. массивов - передаем их - A, B - в массив C , 
  dlA,dlB-kol-vo кол-во элементов в сливаемых массивах}
 procedure Merge(dlA,dlB: integer; var A,B,C: massiv);
 var i, j,k,l: integer;
 begin
  i:=1; j:=1; k:=0;
  while (i<=dlA) and (j<=dlB) do {пока не пройдем один из массивов целиком }
  begin k:=k+1;
        if A[i]<B[j] then {берем меньший из эл-тов массива и кладем его в новый массив}
        begin C[k] := A[i]; i:= i+1;
        end
        else
        begin C[k] := B[j]; j:= j+1;
        end;
  end;
  if i<=dlA then {что-то осталось в массиве A - оставшуюся часть кладем в результирующий массив}
     for l:=i to dlA do
     begin k:=k+1; C[k] := A[l];
     end
  else {что-то осталось в массиве с указателем pB1}
     for l :=j to dlB do
     begin k:=k+1 ; C[k] := B[l];
     end;
 end;

uses crt;
const Max=5;
var a,b:array[1..Max] of integer;
    c:array[1..2*Max] of integer;
    k,l,m:integer;
 begin
  ClrScr;
  Writeln('Объединение двух упорядоченных массивов');
  Writeln('Введите элементы первого массива*');
  Write('(',Max,' целых чисел) ->');
   for k:=1 to Max do
    begin
     Read(a[k]);
    end;
  Writeln('Введите элементы второго массива*');
  Write('(',Max,' целых чисел) ->');
   for l:=1 to Max do
    begin
     Read(b[l]);
    end;
  k:=1;
  l:=1;
  m:=1;
   repeat
    if a[k]<b[l] then
     begin
      c[m]:=a[k];
      m:=m+1;
      k:=k+1;
     end
    else
     if a[k]>b[l] then
      begin
       c[m]:=b[l];
       m:=m+1;
       l:=l+1;
      end
     else
      begin
       c[m]:=a[k];
       c[m+1]:=b[l];
       k:=k+1;
       l:=l+1;
       m:=m+2;
      end;
   until (k>Max) or (l>Max);
  while k<=Max do
   begin
    c[m]:=a[k];
    k:=k+1;
    m:=m+1;
   end;
  while l<=Max do
   begin
    c[m]:=b[l];
    l:=l+1;
    m:=m+1;
   end;
  Writeln('Массив результат');
   for m:=1 to 2*Max do
    Write(c[m],' ');
  Writeln;
  Writeln('Для завершения нажмите Enter!');
  Readkey;
 end.