Обнулить в матрице A элементы тех строк, в которых встречается хотя бы два элемента массива В

type
    TVector = Array[Byte] Of Byte;
    TArray = Array[Byte] Of TVector;
 
var
    a: TArray;
    b: TVector;
    i, j, n, m, k: Byte;
    bb: Set Of Byte;
    state1, state2: Boolean;
begin
    Randomize;
    {проверяем размерности массивов}
    repeat
        Write('k='); ReadLn(k);
    until (k > 0);
    repeat
        Write('n='); ReadLn(n);
    until (n > 0);
    repeat
        Write('m='); ReadLn(m);
    until (m > 0);
    {ввод массивов}
    bb := [];
    Write('Array B:');
    for i := 0 to k - 1 do
    begin
        b[i] := Random(21);
        Include(bb, b[i]);
        Write(b[i]:4);
    end;
    WriteLn;
    WriteLn('Array A:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            a[i, j] := Random(21);
            Write(a[i, j]:4);
        end;
        WriteLn;
    end;
    {поиск и обнуление необходимых строк}
    WriteLn; WriteLn;
    for i := 0 to n - 1 do
    begin
        state1 := False; state2 := False; j := 0;
        while ((Not state2) And (j < m)) do
        begin
            if (Not state1)
            then
                state1 := a[i, j] in bb
            else
                state2 := a[i, j] in bb;
            Inc(j);
        end;
        for j := 0 to m - 1 do
        begin
            if (state2)
            then
                a[i, j] := 0;
            Write(a[i, j]:4);
        end;
        WriteLn;
    end;
end.