Hai xâu kí tự S1 và S2 được gọi là hai xâu họ hàng nếu mỗi kí tự có ở xâu này đều có ở xâu kia và ngược lại

Dưới đây là code Pascal để giải bài toán trên:

```pascal
program XauHoHang;

var
S1, S2: string;
i, j: integer;
isHoHang: boolean;

begin
// Nhập hai xâu kí tự S1 và S2
write('Nhap xau S1: ');
readln(S1);
write('Nhap xau S2: ');
readln(S2);

// Kiểm tra xem hai xâu đã là hai xâu họ hàng chưa
isHoHang := true;
for i := 1 to Length(S1) do
begin
if Pos(S1[i], S2) = 0 then
begin
isHoHang := false;
break;
end;
end;
for i := 1 to Length(S2) do
begin
if Pos(S2[i], S1) = 0 then
begin
isHoHang := false;
break;
end;
end;

// Nếu hai xâu không là hai xâu họ hàng, thực hiện xóa kí tự để tạo thành hai xâu họ hàng
if not isHoHang then
begin
for i := Length(S1) downto 1 do
begin
if Pos(S1[i], S2) = 0 then
Delete(S1, i, 1);
end;
for i := Length(S2) downto 1 do
begin
if Pos(S2[i], S1) = 0 then
Delete(S2, i, 1);
end;
end;

// In ra hai xâu kí tự mới là hai xâu họ hàng
writeln('Xau S1 moi: ', S1);
writeln('Xau S2 moi: ', S2);

readln;
end.
```

Lưu ý: Đoạn code trên chỉ xóa các kí tự không cần thiết để tạo thành hai xâu họ hàng, không đảm bảo xóa ít nhất một số kí tự ở mỗi xâu.