Помогите решить задачу с двумерным массивом

[GoldEagle]

Дан массив B(n*m). Элементы массива ввести с клавиатуры. Удалить строку, в которой находится максимальный элемент. Если такой элемент встречается несколько раз, то удалить все строки. Язык программирования Pascal.

[Aleksandr H.]

Program HelloWorld(output);
const n=5;m=6;
var a:array[1..n,1..m]of byte;
visible:array[1..n]of boolean;
mini,minj:byte;
procedure readdata;
var i,j:byte;
begin
  mini:=1;minj:=1;
  for i:=1 to n do
  begin
  for j:=1 to m do
   begin
    readln(a[i,j]);
    if a[mini,minj]<a[i,j] then begin mini:=i;minj:=j end;
    write(a[i,j]:3);
   end;
   writeln;
   visible[i]:=true;
  end;
  writeln;
  writeln('MAX elem = ',a[mini,minj]);
end;
procedure Show;
var i,j:byte;
begin
   for i:=1 to n do
    for j:=1 to m do
     if a[i,j]=a[mini,minj] then visible[i]:=false;
   for i:=1 to n do
   begin
    if visible[i] then
     for j:=1 to m do write(a[i,j]:3);
    writeln;
   end;
end;

begin
 readdata;
 writeln;
 show;
end.

[Stilet]

Удалить строки из массива не выйдет. Только пересоздать массив, сделав новый.

[GoldEagle]

Большое спасибо!