Определить кратчайший путь от начальной вершины к конечной

uses crt;
const 
n=7;       {число вершин, размерность массива}
sh=3;      {ширина ленты}
masmin=0;  {минимум и максимум заполнения массива. Тут - от нуля до 100}
masmax=100; 
v1=3;      {это не трогайте}
v2=2; 
const veeery_large_number=99998; {o.O} {любое большое число. Пожалуйста, измените название этой переменной. Я вас очень прошу. Сразу, как только возьмёте мой код.}
 
var a:array[1..n,1..n] of real; {исходный массив}
i,j,npp, temp1, temp2:integer; 
pr:array[1..300] of real;       {массив путей по расстоянию}
pp:array[1..300] of real;       {массив самих путей в формате нулей и единиц, где единица означает, что через эту вершину проходим}
minrast:real;
 
function pow(xx:integer;yy:integer):real; {xx в степени yy}
var ii:integer;
qwe:real;
begin
qwe:=xx;
for ii:=2 to yy do
    qwe:=qwe*xx;
pow:=qwe;
end;
 
function normrasp(a,b:integer):real; {нормальное распределение}
var xxx:real;
bbb:boolean;
const maxnr=0.39894228;
begin
bbb:=false;
while (not bbb) do
begin                 
     xxx:=(random(600)/100)-3;
     if (random(100)<( (100*(exp(-xxx*xxx/2))/sqrt(2*pi))/maxnr )) then
        bbb:=true;
end;
normrasp:=a+(b-a)*(xxx+3)/6;
end;
 
function obrez:integer;  {функция, которая определяет, до куда надо заполнять "ленту" в данной строке, потому что лента на последних строчках "обрезается" как бы}
begin
if ((n-i)>=sh) then 
   obrez:=i+sh
else
   obrez:=n;
end;
///////////////////////////////////////////////////////////// 
function rf(af,bf:integer; r,p:real):real;     {реекууурсииияяяяяя!!!}
var min,x:real; jj:integer;
begin
if (a[af,bf]>0) then 
begin
     inc(npp);
     pp[npp]:=p;
     pr[npp]:=r+a[af,bf];
     min:=a[af,bf]+r;
end
else
    min:=veeery_large_number;
for jj:=1 to n do
    if ((a[af,jj]>0) and (jj<>af) and (jj<>bf)) then
    begin
         x:=rf(jj,bf,a[af,jj]+r,p+pow(10,jj)); {рекурсирует себя полностью!!!} 
         if (x<min) then 
            min:=x;
    end; 
rf:=min;     
end; 
////////////////////////////////////////////////////////////            
begin
randomize;
clrscr;
for i:=2 to n-1 do
    for j:=i+1 to obrez do
        a[i,j]:=normrasp(masmin,masmax);
a[1,2]:=normrasp(masmin,masmax);  {ваши начальные условия!!! У меня 1 связана с 2 и 3}
a[1,3]:=normrasp(masmin,masmax);
 
for i:=1 to n do
begin
write(i,':');
    for j:=1 to n do
        if (j<n) then
           if (a[i,j]<10) then 
              write(' ', a[i,j]:v1:v2,' ') 
           else 
              write(a[i,j]:v1:v2,' ') 
        else
              if (a[i,j]<10) then 
              writeln(' ', a[i,j]:v1:v2,' ') 
           else 
              writeln(a[i,j]:v1:v2,' '); 
end;
{-------------------------------------------------}         
npp:=0;
minrast:=rf(1,n,0,10+pow(10,n));      {после этой одной строчки всё уже будет готово. Вызываем рекурсию от первой до крайней вершины, с текушем пройденным путём ноль и текущими пройдеными вершинами первой и крайней}     
writeln(minrast:v1:v2);
for i:=1 to npp do
    if (pr[i]=minrast) then
    begin
       temp2:=0;
       while (pp[i]>0) do
       begin 
            temp1:=round(pp[i]) mod 10;    {проверяем, через какие вершины проходили - у этих вершин на соответствующих местах в pp[i] будет единица (pp[i] - это число!!! Например, для пути 1>3>6 это будет: 1001010, в конце всегда ноль.)}
            if (temp1>0) then 
               write(temp2,'>');
            inc(temp2);
            pp[i]:=round(pp[i]) div 10;
       end; 
       writeln('!');   {это можете заменить на какое-нибудь "Приеехалиии!"}
    end;         
readln;
end.