Матрицы и вектора. Удалить из матрицы строку, в которой находится минимальный элемент матрицы

const 
  nmax=100;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,n,m,imin,jmin:integer;
begin
  repeat
    write('Poryadok kvadratnoi matritsy:');
    readln(n);
  until n in [1..nmax];
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(50);
          write(a[i,j]:4);
        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;
  {udalenie stroki, gde byl obnaruzhen perviy min el. matritsy}
  for i:=imin to n-1 do
    for j:=1 to n do
      a[i,j]:=a[i+1,j];
  m:=n;
  dec(n);
  writeln('Poluchennaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
end.