var X, Y, Z: boolean;
    S: String;
    T: Text;
begin
	write('Имя файла? ');
	readln(S);
	assign(T, S);
	rewrite(T);
	writeln(T, 'X':6, 'Y':6, 'Z':6, '   X xor Y and not Z':18);
	for X:=False to True do
	  for Y:=False to True do
	    for Z:=False to True do
		writeln(T, X:6, Y:6, Z:6, X xor Y and not Z:10);
	flush(T);
	close(T)
end.

Результат работы программы

     X     Y     Z    X xor Y and not Z
 False False False     False
 False False  True     False
 False  True False      True
 False  True  True     False
  True False False      True
  True False  True      True
  True  True False     False
  True  True  True      True