Определить и выдать на экран один из вариантов исходной матрицы

type
  vector = array [1..4] of byte;
  matrix = array [1..4] of vector;
 
var
  horizIn: vector := (1, 3, 1, 3);
  vertIn: vector := (3, 1, 3, 1);   
  board: matrix ;
  a, b, c, d, n, x: integer;
  net:boolean:=true;
 
const
  vec0: vector = (0, 0, 0, 0);
 
function d2b(int: integer): vector ;
var
  k: integer;
  v: vector;
begin
  if int = 0 then v := vec0 else
  begin
    k := 0;
    while int <> 0 do
    begin
      inc(k);
      v[k] := int mod 2;
      int := int div 2;
    end;   
  end;
  d2b := v;
end;
 
function checkBoard(m: matrix; horiz, vert: vector): boolean ;
var
  i, j, sumV, sumH: integer;
  flag: boolean := true;
begin
  for j := 1 to 4 do
  begin
    sumV := 0;sumH := 0;
    for i := 1 to 4 do
    begin;
      sumV := sumV + m[i, j];
      sumH := sumH + m[j, i];
    end;
    flag := (sumV = vert[j]) and (sumH = horiz[j]) and flag;
  end;
  checkBoard := flag;
end;
//программа
begin
write('Для сумм строк ',horizIn,' и сумм столбцов ',vertIn,' решение');
  for a := 0 to 15 do  
    for b := 0 to 15 do    
      for c := 0 to 15 do      
        for d := 0 to 15 do
        begin
          board[1] := d2b(a);
          board[2] := d2b(b);
          board[3] := d2b(c);
          board[4] := d2b(d);
          if checkBoard(board, horizIn, vertIn) then
            begin
              writeln;
              for x := 1 to 4 do  
                writeln(board[x]);            
              net:=false;
            end;
  end;  
  if net then write(' отсутствует.');      
end.