Получить новую матрицу V путем удаления из матрицы A[n,n] строки и столбца, на пересечении которых находится минимальный элемент- Pascal(Паскаль)

const 
n=10;
var
a:array[1..n,1..n] of integer;
v:array[1..n,1..n] of integer;
i,j,imin,jmin,di,dj:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

imin := 1; jmin := 1;
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] < a[imin, jmin] then begin imin := i; jmin := j; end;
  di := 1;
  for i := 1 to n do 
  begin
    dj := 1;
    for j := 1 to n do 
    begin
      if j <> jmin then 
      begin
        v[di, dj] := a[i, j];
        dj := dj + 1;
      end;
    end;
    if i <> imin then di := di + 1;
  end;

writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to n do
          begin
             write('  ',v[i,j]:3);
          end;
        writeln();
    end;
end.