k := 1;
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      if B[i, j] > -5 then
      begin
        A[k] := B[i, j];
        write(A[k]:4);
        k := k + 1;
      end;
    end;
  end;