Создать третий массив из двух исходных

var
    a, b: Array[Byte] Of ShortInt;
    c: Array[Word] Of ShortInt;
    na, nb: Byte;
    nc, i: Word;
begin
    Randomize(); nc := 0;
    repeat
        Write('Input NA:');
        ReadLn(na);
    until (na > 0);
    Write('A:');
    for i := 0 to na - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        if (a[i] > 0)
        then
        begin
            c[nc] := a[i];
            Inc(nc);
        end;
    end;
    WriteLn;
    repeat
        Write('Input NB:');
        ReadLn(nb);
    until (nb > 0);
    Write('B:');
    for i := 0 to nb - 1 do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:4);
        if (b[i] > 0)
        then
        begin
            c[nc] := b[i];
            Inc(nc);
        end;
    end;
    WriteLn;
    for i := 0 to na - 1 do
        if (a[i] < 0)
        then
        begin
            c[nc] := a[i];
            Inc(nc);
        end;
    for i := 0 to nb - 1 do
        if (b[i] < 0)
        then
        begin
            c[nc] := b[i];
            Inc(nc);
        end;
    Write('C:');
    for i := 0 to nc - 1 do
        Write(c[i]:4);
end.