ruifilipebessa

Boa noite, estou com dificuldades em avançar a partir de um certo ponto no programa para calcular as distancias entre cidades... Tenho as distancias entre cidades inseridas em uma matriz, coloquei um vetor pois preciso do ponto de partida, então ordenei o vetor para na ultima posição ser igual ao ponto de partida. Agora gostaria de saber como fazer para ordenar o vetor desde a cidade mais perto e achar o caminho mais curto somando o valor desse caminho... ---------------------------------------------------- procedure mais_curto(); var i,minimo:integer; begin writeln('Qual a cidade de origem?'); readln(origem); minimo:=100; begin for i:=0 to (ncidades) do begin vetor:=i; vetor[ncidades]:=origem; vetor[origem]:=0; vetor[0]:=0; writeln(vetor); end; readln(); clrscr; for i:=1 to (ncidades-1) do { dificuldades a partir deste Ponto!!! } begin if matriz_distancia[origem,vetor]<minimo then minimo:=matriz_distancia[origem,vetor]; writeln(minimo); end; writeln(minimo); end; end; ---------------------------------------------------------- Agradeço se alguém me puder ajudar.