Даны целочисленная матрица A[1:n, 1:m] и целочисленный массив B[1:k]. Удалить методом

Даны целочисленная матрица 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 (ngt;0) and (mgt;0);
repeat
writeln ('Введите колличество элементов массива k');
readln(k);
until kgt;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]gt;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.
Не могу отыскать, что конкретно не так, задание программка исполняет не правильно