Знайдено остаточний мінімальний індекс і відповідно вершину для чергового

кроку, далі черговий крок і новий прохід програми з мітки b3}

k:=k+1;st[k]:=z; if z=t then goto b4 else goto b3;{далі вивід}

writeln('послідовність вершин найкоротшого шляху:');

i:=1;

b4: writeln('послідовність вершин найкоротшого шляху:');

for i:=1 to 10 do write(' ',st[i]); writeln(' ');

writeln(' робота програми завершена');

b5: writeln(' ');

b6: