Задача про города

[Katrina*]

В государстве N городов. Курьер должен добраться из города А в город В. Вам известно, между какими городами есть дороги. Найдите такой путь из А в В, который проходит через наименьшее количество городов. Гарантируется, что путь существует.

[val_nnm]

Держите написал (хотя не исключено что такая задача уже решалась на этом форуме, просто лень искать)

const MaxM = 50;
Type Citys = set of byte;
Type Way = record
             fromC:byte;
             toC:byte;
           end;
var N:integer;
    M:integer;
    A:byte;
    B:byte;
    input:text;
    output:text;
    i:integer;
    Ways:array[1..MaxM] of Way;
    C:Citys;
    C2:Citys;
    C3:Citys;
    l:integer;
    
Begin
  assign(input,'input.txt');
  reset(input);
  readln(input,N,M,A,B);
  for i := 1 to M do
    readln(input,Ways[i].fromC,Ways[i].toC);
  close(input);
  l := -1;
  C := [A];
  C2 := [A];
  while not(B in C2) and (C2 <> []) do Begin
    C3 := [];
    for i := 1 to M do Begin
      if (Ways[i].fromC in C2) then
        include(C3,Ways[i].toC);

      if (Ways[i].toC in C2) then { второе условие. т.к. по дороге можно перемещяться в обоих направлениях }
        include(C3,Ways[i].fromC);
    end;
    C2 := C3 - C;
    C := C + C3;
    l := l+1;
    if (C2 = []) then l := -2; { ответа нет }
  end;
  assign(output,'output.txt');
  rewrite(output);
  writeln(output,l);
  close(output);  
end.

p.s. Погоняйте хорошенько на разных данных, потому что могут быть ошибки.