я вообще не понимаю как делать. можно с решением. ​

Я хотел через процедуру сделать, чтобы ты могла ей пользоваться и дальше... Но не удалось:( Впрочем, вторая программа, в прикреплении, работает, проверил:з
А это первая:)
var a: array [0..9] of integer;
    i, j, temp: integer;
begin
     for i := 2 to 8 do
     begin
          a[i] := random(11) - 5;
          writeln('[', i, '] => ', a[i]);
     end;
     a[0] := 0;
     a[1] := 0;
     a[9] := 0;
     writeln();
     for i := 0 to 9 do
         for j := 0 to 8 do
             if (a[j] = 0) then
             begin
          temp := a[j];
                a[j] := a[j + 1];
          a[j + 1] := temp;
             end;
     for i := 0 to 9 do writeln('[', i, '] => ', a[i]);
end.

Фамилия брюнета Ивана - Антонов, Борисов, Глебов или Дмитриев. Но Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева. Поэтому Иван имеет фамилию Борисов.

Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так как человек, фамилия которого совпадает с именем Егорова, женат,
то имена Антон и Глеб исключаются. Кроме того, теперь
можно исключить и имя Борис: в этом случае из условия следовало бы, что имя Борисова - Егор, а мы уже выяснили, что его зовут Иван.
Методом исключения получаем, что имя Егорова - Дмитрий.
Следовательно, фамилия Бориса совпадает с именем Дмитриева.
Отсюда, кстати, следует, что Борис - не Иванов.

Поэтому для блондина Иванова остаются только два имени - Антон или Глеб. Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб
имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов.
Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев. Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.