Удаление строк и столбцов двумерного массива

[Павел Шилин]

Составьте программу удаления строки и столбца, которые содержат минимальный элемент матрицы c(N,N). Заранее Спасибо!

[Mad_Cat]

uses crt;
var a:array[1..100,1..100] of integer;
i,j:byte;
mini,minj:byte;
n,m:byte;
begin
readln(n);
m:=n;
randomize;
mini:=1;
minj:=1;
writeln('++++++++++++++++++++++++++++++++++++++++');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(100);
write(a[i,j]:3);
if a[i,j]<a[mini,minj] then
begin
mini:=i;minj:=j;
end;
end;
writeln;
end;
writeln('++++++++++++++++++++++++++++++++++++++++');
for i:=mini to n do
for j:=1 to n do a[i,j]:=a[i+1,j];
for j:=minj to n do
for i:=1 to n do a[i,j]:=a[i,j+1];
for i:=1 to n-1 do begin
for j:=1 to n-1 do begin
write(a[i,j]:3);
end;
writeln;
end;
end.