Để giải bài toán này, ta có thể sử dụng thuật toán DFS (Duyệt Đầu Tiên) để kiểm tra xem có thể chia thành 2 nhóm không. Dưới đây là quy trình giải:

1. Đọc dữ liệu từ tệp CHIANHOM.INP.

2. Sử dụng thuật toán DFS để duyệt đồ thị và kiểm tra xem có thể chia thành 2 nhóm hay không.

3. Nếu có thể chia thành 2 nhóm, ghi ra tệp CHIANHOM.OUT số thứ tự của các người trong mỗi nhóm. Ngược lại, ghi số 0.

Dưới đây là mã mẫu trong Pascal:

```pascal

var

N: integer;

A: array[1..100,1..100] of integer;

Visited: array[1..100] of boolean;

Group: array[1..100] of integer;

procedure DFS(u, g: integer);

var

v: integer;

begin

Visited[u] := true;

Group[u] := g;

for v := 1 to N do

if (A[u, v] = 1) and not Visited[v] then

DFS(v, 3 - g);

end;

procedure Input;

var

i, j: integer;

begin

readln(N);

for i := 1 to N do

for j := 1 to N do

read(A[i, j]);

end;

procedure Output;

var

i, Group1, Group2: integer;

begin

Group1 := 0;

Group2 := 0;

for i := 1 to N do

if Group[i] = 1 then

Group1 := Group1 * 10 + i

else

Group2 := Group2 * 10 + i;

if (Group1 = 0) or (Group2 = 0) then

writeln('0')

else

begin

writeln(Group1);

writeln(Group2);

end;

end;

procedure Main;

var

i: integer;

begin

fillchar(Visited, sizeof(Visited), false);

fillchar(Group, sizeof(Group), 0);

for i := 1 to N do

if not Visited[i] then

DFS(i, 1);

Output;

end;

begin

assign(input, 'CHIANHOM.INP');

reset(input);

assign(output, 'CHIANHOM.OUT');

rewrite(output);

Input;

Main;

close(input);

close(output);

end.

```

Bạn có thể sử dụng mã mẫu này để giải bài toán của mình trong Pascal.