Даны целочисленная матрица A[1:n, 1:m] и целочисленный массив B[1:k]. Удалить путем сдвига все строки матрицы, содержащие хотя бы один элемент, равный максимальному элементу массива. const lmax = 100; type mass = array [1..lmax] of integer; matr = array[1..lmax,1..lmax] of integer; var A: matr; B: mass; i, j, n, m, k, max: integer; flag: boolean; begin repeat writeln('Введите количество строк и столбцов матрицы n и m'); readln(n, m); until (n>0) and (m>0); repeat writeln ('Введите колличество элементов массива k'); readln(k); until k>0; for i:=1 to n do for j:=1 to m do begin write('A[',i,',',j,']:='); readln(A[i,j]) end; for i:=1 to k do begin write('B[',i,']:='); readln(B[k]); end; flag:=false; max:=-maxint; for j:=1 to k do if B[j]>max then max:=B[j]; for i:=1 to n do for j:=1 to m do begin if flag=true then begin A[n,m]:=A[n+1,m]; n:=n-1; flag:=false; end else if A[n,m]=max then flag:=true; end; writeln('Новая матрица: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; end. Не могу найти, что именно не так, задание программа выполняет не верно