Их двумерного массива удалить строку и столбец, на пересечении которых расположен минимальный элемен

uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of integer;
    i,j,imin,jmin,n: byte;
    
begin
repeat
write('n='); readln(n);
until n in [1..nmax];
imin:=1; jmin:=1;
writeln('исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i; jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('минимальный элемент=',a[imin,jmin],', в строке ',imin,', в столбце ',jmin);
for i:=imin to n-1 do
    for j:=1 to n do
        a[i,j]:=a[i+1,j];
for j:=jmin to n-1 do
    for i:=1 to n-1 do
        a[i,j]:=a[i,j+1];
dec(n);
writeln('матрица после удаления');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
end.