Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)

var a,b,c,d,e,f : Byte;
begin
  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to 9 do
    for e := 0 to 9 do
      for f := 0 to 9 do
  if a+b+c = d+e+f then
    Write(a,b,c,d,e,f,#32);
end.

  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to Min(9,a+b+c) do
    for e := 0 to Min(9,a+b+c-d) do
      if a+b+c-d-e in [0..9] then
        Write(' ',a,b,c,d,e,a+b+c-d-e);

function Min(a, b: Integer): Integer;
begin
  if a<=b then min:=a else min:=b;
end;
function Max(a, b: Integer): Integer;
begin
  if a>=b then max:=a else max:=b;
end;
var a, b, c, d, e: Integer;
begin
  for a:=0 to 9 do for b:=0 to 9 do for c:=0 to 9 do
  for d:=Max(0,a+b+c-2*9) to Min(9,a+b+c) do
    for e:=Max(0,a+b+c-d-9) to Min(9,a+b+c-d) do
      Write('  ', a,b,c,d,e,a+b+c-d-e);
end.