Исключить из матрицы строку с минимальным элементом

var x,arr_out:array[1..100] of integer;
var i,a:integer;
var f1:text;
 
begin
assign(f1,'output.txt');
rewrite(f1);
for i:=1 to 100 do
begin
x[i]:=3*i;            // *здесь авто заполнение, подправь под условия задачи *
a:=x[i] mod 2;
arr_out[i]:=x[i]*2
else
arr_out[i]:=x[i]-1;
write(f1,arr_out[i]);
write(f1, ' ');
end;
close(f1);
end.

     program p;
uses crt;
var M:array[1..100] of real;
i,k:integer;
begin
writeln('BBedite k');
readln(k);
for i:=1 to k do
read(M[i]);
for i:= 1 to k do
begin
if  odd(i)=true then M[i]:=M[i]*2 else (M[i])-1;
writeln (M[i]);
end;
readkey;
end.

program matrica;
uses crt;
const n=6;
      m=4;
var i,j,min,imin:integer;
    a:array[1..50,1..50]of integer;
begin
clrscr;
randomize;
writeln('Ishodnaia matrica:');
min:=maxint;imin:=1;
for i:=1 to n do
   begin
      for j:=1 to m do
         begin
           a[i,j]:=random(20)-8;
           if a[i,j]<min then
              begin
                 min:=a[i,j];
                 imin:=i;
              end;
           write(a[i,j]:4);
         end;
      writeln;
   end;
writeln('Udalit stroku ',imin);
{Udalenie stroki}
for j:=1 to m do
for i:=imin to n-1 do
a[i,j]:=a[i+1,j];
writeln('Rezultat:');
for i:=1 to n-1 do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
readln;
end.