А) разборчивая невеста при выборе жениха руководствуется правилом: «жених должен быть старше ее, но не намного». по известным возрастам: невесты – n лет, женихов r1 лет, r2 лет, r3 лет– определить, которого она выберет– первого второго или третьего.

Uses crt;
var r: array [1..10] of integer;
      nev, n, min,i, zap:integer;
begin
   clrscr;
   write('Введите возраст невесты: '); readln(nev);
   write('Введите число женихов: '); readln(n);
   if n<2 then
   for i:=1 to n do
   begin
   write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
   end;

   i:=0; zap:=0;
   while (zap=0) and (i<=n) do begin  
     i:=i+1;
     min:=nev-r[i];
     if min>0 then zap:=i;
   end;
   if i<>n then
   begin
     for i:=zap to n do
     begin
        if min>(nev-r[i]) then
        begin
           zap:=i;
           min:=nev-r[i];
         end;
     end;
     writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
     writeln ('По счету это ',i,'-ый жених');
   end
   else writeln('Среди женихов нет подходящего для нашей невесты.');
  end;
  else writeln('Число женихов должно быть более 2!');
end.
     

// PascalABC.NET 3.0, сборка 1128
procedure DeleteRow(var a:array[,] of integer; r:integer);
begin
  var rows:=a.GetLength(0);
  var cols:=a.GetLength(1);
  for var i:=r to rows-2 do
    for var j:=0 to cols-1 do a[i,j]:=a[i+1,j];
  SetLength(a,rows-1,cols)
end;

begin
  var b:array[,] of integer:=((1,2,3,0),(5,6,0,8),
      (9,10,11,12),(13,0,15,16),(17,18,19,20));
  Writeln('Исходный массив: ',b);
  var n:=b.GetLength(0);
  var m:=b.GetLength(1);
  // удаляем строки без нулевых элементов
  for var i:=n-1 downto 0 do begin
    var FoundZero:=False;
    for var j:=0 to m-1 do
      if b[i,j]=0 then begin FoundZero:=True; Break end;
    if not FoundZero then DeleteRow(b,i) // удалить строку
    end;
  Writeln('Результирующий массив: ',b);
end.

Тестовое решение:
Исходный массив: [[1,2,3,0],[5,6,0,8],[9,10,11,12],[13,0,15,16],[17,18,19,20]]
Результирующий массив: [[1,2,3,0],[5,6,0,8],[13,0,15,16]]

// PascalABC.NET 3.0, сборка 1128
begin
  var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4));
  Writeln('Массив B: ',b);
  var n:=b.GetLength(0);
  var m:=b.GetLength(1);
  var imax:=0; var jmax:=0;
  var imin:=0; var jmin:=0;
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end
      else
        if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end;
  Swap(b[imin,jmin],b[imax,jmax]);
  Writeln('Результирующий массив: ',b)
end.

Тестовое решение:
Массив B: [[5,8,7,3],[-2,0,6,9],[2,1,12,4]]
Результирующий массив: [[5,8,7,3],[12,0,6,9],[2,1,-2,4]]