Найти количество положительных элементов каждого столбца матрицы - Pascal

type
    TVector = Array[Byte] Of ShortInt;
    TArray = Array[Byte] Of TVector;
var
    orig: TArray;
    a, b, c, d: TVector;
    i, j, n, m, count, m1, m2, m3, m4: Byte;
    k: ShortInt;
begin
    {Заполнение базового массива}
    repeat
        Write('Input m (>4) = '); ReadLn(n);
    until (n > 3);
    repeat
        Write('Input n (>0) = '); ReadLn(m);
    until (m > 0);
    Randomize();
    for i := 0 to n - 1 do
    begin
        WriteLn;
        for j := 0 to m - 1 do
        begin
            orig[i, j] := Random(199) - 99;
            Write(orig[i, j]:5);
        end;
    end;
    {количество положительных элементов в столбцах}
    WriteLn;
    for j := 0 to m - 1 do
        Write('-----');
    WriteLn;
    for j := 0 to m - 1 do
    begin
        count := 0;
        for i := 0 to n - 1 do
            if (orig[i, j] > 0)
            then
                Inc(count);
        Write(count:5);
    end;
    {копирование в отдельные векторы и удаление меньших k}
    WriteLn;
    Write('Input k='); ReadLn(k);
    a := orig[0]; m1 := m;
    i := 0;
    while (i < m1) do
    begin
        if (a[i] < k)
        then
        begin
            for j := i to m1 - 2 do
                a[j] := a[j + 1];
            Dec(m1);
        end
        else
            Inc(i);
    end;
    WriteLn; WriteLn;
    for j := 0 to m1 - 1 do
        Write(a[j]:5);
    b := orig[1]; m2 := m;
    i := 0;
    while (i < m2) do
    begin
        if (b[i] < k)
        then
        begin
            for j := i to m2 - 2 do
                b[j] := b[j + 1];
            Dec(m2);
        end
        else
            Inc(i);
    end;
    WriteLn; WriteLn;
    for j := 0 to m2 - 1 do
        Write(b[j]:5);
    c := orig[2]; m3 := m;
    i := 0;
    while (i < m3) do
    begin
        if (c[i] < k)
        then
        begin
            for j := i to m3 - 2 do
                c[j] := c[j + 1];
            Dec(m3);
        end
        else
            Inc(i);
    end;
    WriteLn; WriteLn;
    for j := 0 to m3 - 1 do
        Write(c[j]:5);
    d := orig[3]; m4 := m;
    i := 0;
    while (i < m4) do
    begin
        if (d[i] < k)
        then
        begin
            for j := i to m4 - 2 do
                d[j] := d[j + 1];
            Dec(m4);
        end
        else
            Inc(i);
    end;
    WriteLn; WriteLn;
    for j := 0 to m4 - 1 do
        Write(d[j]:5);
end.