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

var
a:array [1..10,1..10] of integer;
i,j,min,n,imin,jmin:byte;
 
 
begin
 randomize;
 imin:=1; jmin:=1;
 for i := 1 to n do
  for j := 1 to n do
   begin
    a[i,j]:=random(50)-15;
   end;
 for i := 1 to n do
  begin
   for j := 1 to n do
    begin
     write(a[i,j]:5);
    end;
   writeln;
 end;
 writeln;
 min:=a[1,n];
 for i:=1 to n do
   if a[i,n-i+1]< min then
     min:=a[i,n-i+1];
 writeln('минимальный элемент на побочной диагонали: ',min); 
 
 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.

var a:array [1..10,1..10] of integer;
    n,m,i,j,imin,jmin:byte;
    min:integer;
begin
randomize;
n:=10;
writeln('Исхожный массив');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    a[i,j]:=-15+random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
imin:=1; jmin:=1;
min:=a[1,n];
for i:=1 to n do
if a[i,n-i+1]< min then
 begin
  min:=a[i,n-i+1];
  imin:=i;
  jmin:=n-i+1;
 end;
writeln('минимальный элемент на побочной диагонали: ',min);
writeln('в строке ',imin,' столбце ',jmin);
m:=n;
if imin=m then m:=m-1
else
 begin
  for i:=imin to m-1 do
  for j:=1 to n do
  a[i,j]:=a[i+1,j];
  m:=m-1;
 end;
if jmin=n then n:=n-1
else
 begin
  for j:=jmin to n-1 do
  for i:=1 to m do
  a[i,j]:=a[i,j+1];
  n:=n-1;
 end;
writeln('матрица после удаления');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.