В некотором государстве ввели компьютерный паспорт гражданина. Укажите пол гражданина и последовательность событий

program pasport;
 
uses
  GraphABC;
 
var
  a: array [1..5] of array [1..5]of integer;
  x, y: integer;
  brak, obraz, vodit: boolean;
  z: array [1..4] of string; {Массив, в котором содержится последовательность событий}
  q: array [1..3] of string;{Промежуточная последовательность}
 
begin
  for y := 1 to 5 do
  begin
    writeln();
    for x := 1 to 5 do 
    begin{Если пусто, то ставить 0}
      read(a[x, y]); {Заполнение матрицы 5 на 5}
      write(a[x, y], ' '); {Вывод на экран матрицы 5 на 5}
    end;
  end;
  writeln();
  {-----------}
  if a[1, 2] = 1 then z[1] := 'Мужчины' else if a[1, 2] = -1 then z[1] := 'Женщины';
  if a[1, 1] = 3 then brak := true else brak := false; {Проверяет есть или нет то или иное событие}
  if a[2, 3] = 2 then obraz := true else obraz := false; {На этом этапе стараемся максимально их друг с другом не "смешивать"}
  if a[2, 5] = 4 then vodit := true else vodit := false; {То есть делаем их абсолютно не зависимыми}
  {-----------}
  if (brak = true) and (obraz = true) then if a[3, 3] = 3 then q[1] := 'Брак' else q[1] := 'Образование';
  if (brak = true) and (vodit = true) then if a[2, 2] = 3 then q[2] := 'Брак' else q[2] := 'Получение прав';
  if (obraz = true) and (vodit = true) then if a[1, 3] = 2 then q[3] := 'Образование' else q[3] := 'Получение прав'; {Попарная частота}
  {>>>>>>>>>>>}
  if (q[1] <> '') and (q[2] = '') and (q[3] = '') then 
  begin
    z[3] := q[1];
    if q[1] = 'Брак' then z[2] := 'Образование' else z[2] := 'Брак';
  end;
  if (q[1] = '') and (q[2] <> '') and (q[3] = '') then 
  begin
    z[3] := q[2];
    if q[1] = 'Брак' then z[2] := 'Получение прав' else z[2] := 'Брак';
  end;
  if (q[1] = '') and (q[2] = '') and (q[3] <> '') then 
  begin
    z[3] := q[3];
    if q[1] = 'Получение прав' then z[2] := 'Образование' else z[2] := 'Получение прав';
  end;
  {>>>>>>>>>>>}
  if (q[1] = 'Брак') and (q[2] = 'Брак') then
  begin
    z[4] := 'Брак';
    if q[3] = 'Образование' then 
    begin
      z[3] := 'Образование';
      z[2] := 'Получение прав';
    end
    else 
    begin
      z[2] := 'Образование';
      z[3] := 'Получение прав';    
    end;
  end;
  {+++}
  if (q[1] = 'Образование') and (q[3] = 'Образование') then 
  begin
    z[4] := 'Образование';
    if q[3] = 'Брак' then 
    begin
      z[3] := 'Брак';
      z[2] := 'Получение прав';
    end
    else 
    begin
      z[2] := 'Брак';
      z[3] := 'Получение прав';    
    end;
  end;
  {+++}
  if (q[2] = 'Получение прав') and (q[3] = 'Получение прав') then 
  begin
    z[4] := 'Получение прав';
    if q[3] = 'Брак' then 
    begin
      z[3] := 'Брак';
      z[2] := 'Получение прав';
    end
    else 
    begin
      z[2] := 'Брак';
      z[3] := 'Получение прав';    
    end;
  end;
  {Самый частый элемент}
  {-----------}
  {Теперь если только одно событие произошло}
  if (brak = true) and (obraz <> true) and (vodit <> true) then z[2] := 'Брак';
  if (brak <> true) and (obraz = true) and (vodit <> true) then z[2] := 'Образование';
  if (brak <> true) and (obraz <> true) and (vodit = true) then z[2] := 'Получение прав';
  {Теперь выводим на экран результат}
  write('Рождение ', z[1]);
  if z[2] <> '' then write(' --> ', z[2]);
  if z[3] <> '' then write(' --> ', z[3]);
  if z[4] <> '' then write(' --> ', z[4]);
end.