Написать программу, которая объединяет два упорядоченных по возрастанию массива в один

uses crt;
type Arr = array[1..200]of integer;
var A, B, C : Arr;
i, M, N : integer;
 
procedure MergeArrays(A : Arr; an : integer; B : Arr; bn : integer; var C : Arr);
var _a, _b : integer;
begin
    _a := 0;
    _b := 0;
    while (_a <> an) or (_b <> bn) do
    begin
        if _a = an then
        begin
            inc(_b);
            C[_a + _b] := B[_b];
        end else if _b = bn then
        begin
            inc(_a);
            C[_a + _b] := A[_a];
        end else if A[_a + 1] <= B[_b + 1] then
        begin
            inc(_a);
            C[_a + _b] := A[_a];
        end else if A[_a + 1] >= B[_b + 1] then
        begin
            inc(_b);
            C[_a + _b] := B[_b];
        end;
    end;
end;            
begin
    clrscr;
    write('Введите размерность A -> ');
    readln(N);
    write('Введите массив A -> ');
    for i:=1 to N do read(A[i]);
    readln;    
    write('Введите размерность B -> ');
    readln(M);    
    write('Введите массив B -> ');
    for i:=1 to M do read(B[i]);
    readln;
    MergeArrays(A, n, B, m, C);
    writeln('Массив C -> ');
    for i := 1 to N+M do write(C[i],' ');
    readln;
end.