Сформировать новый массив из положительных элементов первого массива и элементов второго массива - Pascal ABC

const
    NMAX = 100;
var
    a, b: Array[1..NMAX] Of ShortInt;
    c: Array[1..NMAX*2 - 1] Of ShortInt;
    i, min, na, nb, nc: 0..(NMAX - 1)*2;
begin
    Randomize;
    Write('Введите длину первого массива (1..', NMAX, '): ');
    ReadLn(na);
    nc := 0;
    Write('Первый вектор:');
    for i := 1 to na do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
        if (a[i] > 0)
        then
        begin
            Inc(nc);
            c[nc] := a[i];
        end;
    end;
    WriteLn;
    Write('Введите длину второго массива (1..', NMAX, '): ');
    ReadLn(nb);
    min := 1;
    Write('Второй вектор:');
    for i := 1 to nb do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:4);
        if (b[i] < b[min])
        then
            min := i;
    end;
    WriteLn;
    for i := min + 1 to nb do
    begin
        Inc(nc);
        c[nc] := b[i];
    end;
    if (nc > 0)
    then
    begin
        Write(' Новый вектор:');
        for i := 1 to nc do
            Write(c[i]:4);
        WriteLn;
    end
    else
        WriteLn('Новый вектор пуст!');
end.