. а) Рассудительная жена при выборе жениха руководствуется правилом: жених обязан

женихов только 3? либо хоть какое огромное количество

это задача на нахождение минимума. Запрашиваете возраст женихов и самой жены. Далее анализ: нахождение минимальной различия меж возрастом жены и жениха.

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

   i:=0; zap:=0;
   while (zap=0) and (ilt;=n) do begin  
     i:=i+1;
     min:=nev-r[i];
     if mingt;0 then zap:=i;
   end;
   if ilt;gt;n then
   begin
     for i:=zap to n do
     begin
        if mingt;(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.