используя множества написать программу которая бы находила вершины, из которой расстояние (по количеству ребер) до других вершин является максимальной

program n1;
type tpoint = (a,b,c,d,e,f);
     tpoints=set of tpoint;
     graf=array[tpoint] of tpoints;
 var
   gr:graf;
   mas,sam:tpoints;
    k:integer;
    ver,i,j:tpoint;
begin
mas:=[a];
sam:=[a,b,c,d,e,f];
gr[a]:=[b,c,d];
gr[b]:=[a,c,d,e];
gr[c]:=[a,b];
gr[d]:=[a,b];
gr[e]:=[b,f];
gr[f]:=[e]; j:=a; ver:=a;
repeat
 if ver in gr[j] then begin
 j:=ver;
 mas:=mas+[j];
 
 write(chr(ord('a')+ord(j)));
 end
 else begin j:=pred(j);
 mas:=mas+[j];
 end;
 ver:=succ(ver);
 write(chr(ord('a')+ord(j)));
 
 until mas=sam;
 
end.