Даны целочисленная матрица 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.
Не могу найти, что именно не так, задание программа выполняет не верно

Замените кусок кода или скачайте прикрепленный файл