Найти кратчайший маршрут, начинающийся в 1-м городе и проходящий через все остальные города

const ny: array[boolean] of string[2] = ('. ', '# ');
var f: array[1..5] of integer;
    t: array[0..7, 0..7] of boolean;
    i, j, k, x, y, r: integer;
    s: boolean;
    ex: string;
begin
  writeln('Всего 352 решения.');
  r := 0;
  f[1] := 0;
  repeat
    f[2] := f[1] + 1;
    repeat
      f[3] := f[2] + 1;
      repeat
        f[4] := f[3] + 1;
        repeat
          f[5] := f[4] + 1;
          repeat
            for i := 0 to 7 do for j := 0 to 7 do t[i, j] := false;
            for k := 1 to 5 do
              begin
                x := f[k] div 8;
                y := f[k] mod 8;
                for i := 0 to 7 do
                  for j := 0 to 7 do
                    if (x <> i) or (y <> j) then t[i, j] := t[i, j] or (x = i) or (y = j) or (abs(x - i) = abs(y - j))
              end;
            s := true;
            for i := 0 to 7 do
              for j := 0 to 7 do
                begin
                  s := s and t[i, j];
                  if not s then break
                end;
            if s
              then begin
                inc(r);
                writeln('Решение ', r);
                for i := 0 to 7 do
                  begin
                    for j := 0 to 7 do
                      begin
                        s := false;
                        for k := 1 to 5 do
                          begin
                            s := i * 8 + j = f[k];
                            if s then break
                          end;
                        write(ny[s])
                      end;
                    writeln;
                  end;
                write('Exit? ');
                readln(ex);
                if ex = 'y' then halt
              end;
            inc(f[5])
          until f[5] = 64;
          inc(f[4])
        until f[4] = 63;
        inc(f[3])
      until f[3] = 62;
      inc(f[2])
    until f[2] = 61;
    inc(f[1])
  until f[1] = 60;
  write('Нажмите <Enter> для выхода.');
  readln
end.