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

Program shootsayer;
 const nmax=20;
 type ar=array[1..nmax,1..nmax]of integer;
 var a:ar;
     i,j,n,m,min,imin,jmin:integer;
     f:text;
  procedure zap(var a:ar; n,m:integer);
  var i,j:integer;
  begin
   for i:=1 to n do begin
    for j:=1 to m do read(f,a[i,j]);
    readln(f); end;
   end;
  procedure print(var a:ar; n,m:integer);
   var i,j:integer;
    begin
     writeln('Матрица: ');
     for i:=1 to n do begin
     for j:=1 to m do write(a[i,j]:4);
     writeln;
     end;
     end;
  begin
   assign (f,'zad132.txt');
   reset(f);
   read(f,n,m);
   zap(a,n,m);
   close(f);
   min:=a[1,1];
   imin:=1;
   jmin:=1;
   print(a,n,m);
   for i:=1 to n do begin
    for j:=1 to m do if a[i,j]<min then begin
                                         min:=a[i,j];
                                         imin:=i;
                                         jmin:=j;
                                         end;
   
   for i:=imin to n-1 do
    for j:=1 to m do a[i,j]:=a[i+1,j];
       print(a,n-1,m);
     end.

const f_name = 'zad123.txt';
 
type 
  t = real;
  matrix = aRRay of aRRay of t;
 
begin
  try
    assignfile(input, f_name);
    reset(input);
    var n, m:byte;
    readln(n, m);
    var mas:matrix;
    SetLength(mas, n);
    var i, j, min_x, min_y:byte;
    min_x:= low(mas);
    min_y:= min_x;
    for i:= low(mas) to high(mas) do
    begin
      SetLength(mas[i], m);
      for j:= low(mas[i]) to high(mas[i]) do
      begin
        read(mas[j, j]);
        if (mas[i, j] < mas[min_x, min_y]) then
        begin
          min_x:= i;
          min_y:= j;
        end;
      end;
    end;
    var flag:boolean;
    i:= 0;
    repeat
      flag:= false;
      for j:= low(mas[i]) to high(mas[i]) do
        if (mas[i, j] = mas[min_x, min_y]) then
        begin
          flag:= true;
          break;
        end;
      if (flag) then
      begin
        for j:= i to high(mas) - 1 do
          mas[i]:= mas[i + 1];
        SetLength(mas, Length(mas) - 1);
      end
      else
        i += 1;
    until (i > high(mas));
    closefile(input);
    assignfile(input, f_name);
    append(input);
    for i:= low(mas) to high(mas) do
    begin
      for j:= low(mas) to high(mas) do
        write(mas[i, j], ' ');
      writeln;
    end;
  finally
    closefile(input);
  end;
end.