Помогите пожалуйста

[brooklyn777]

Дана квадратная матрица целых чисел размером N*N (N – вводим с клавиатуры). Удалить все строки матрицы, которые содержат минимальный элемент.

[p51x]

vec.erase(std::remove_if(std::begin(vec), std::end(vec), [&Min](const auto& V){ return std::find_if(std::begin(V), std::end(V), Min) != std::end(V); }), std::end(vec));

[newerow1989]

var p:array of array of integer;
    i,j,n,min:integer;
    d:boolean;
begin
   Write('N = '); Readln(n);
   SetLength(p,n,n);
   Randomize;
   For i:=0 to n-1 do
   begin
      For j:=0 to n-1 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   min:=p[0,0];
   For i:=0 to n-1 do
      For j:=0 to n-1 do
         If min>p[i,j] then
            min:=p[i,j];
   For i:=0 to n-1 do
   begin
      d:=true;
      For j:=0 to n-1 do
         If min=p[i,j] then
            d:=false;
      If d then
      begin
         For j:=0 to n-1 do
            Write(p[i,j]:3,'  ');
         Writeln;
      end;
   end;
   Readln;
end.

[Aleksandr H.]

Препод смотрит код? Если только на результаты, то просто не выводить эти строки на экран