Алгоритм Дейкстры

[Малайка]

Помогите пожалуйста
Как доделать,где ошибки

procedure TForm2.Button2Click(Sender: TObject);
var q:integer;//ââîä îòêóäГ*
//f,f1,f2,f3,f4,f5,f6,f7,f8:integer;//Г°Г*ññòîÿГ*ГЁГї
pr,sr:integer;//ïðèçГ*Г*ГЄ
k,l:integer;
min:integer;
begin
q:=strtoint(edit9.Text);
if (q>n) or (q<1) or (edit1.Text='') then
begin
q:=1;
Edit1.Text:='1';
end;

{v}
v[0,0]:=-100;
v[1,0]:=-1;
v[2,0]:=strtoint(edit1.Text);
v[3,0]:=-1;
v[4,0]:=strtoint(edit2.Text);;
v[5,0]:=-1;

v[0,1]:=-1;
v[1,1]:=-100;
v[2,1]:=strtoint(edit4.Text);
v[3,1]:=strtoint(edit8.Text);
v[4,1]:=-1;
v[5,1]:=-1;

v[0,2]:=-1;
v[1,2]:=strtoint(edit4.Text);
v[2,2]:=-100;
v[3,2]:=strtoint(edit5.Text);
v[4,2]:=-1;
v[5,2]:=-1;

v[0,3]:=-1;
v[1,3]:=-1;
v[2,3]:=-1;
v[3,3]:=-100;
v[4,3]:=-1;
v[5,3]:=strtoint(edit7.Text);

v[0,4]:=strtoint(edit2.Text);;
v[1,4]:=strtoint(edit3.Text);
v[2,4]:=-1;
v[3,4]:=-1;
v[4,4]:=-100;
v[5,4]:=-1;

v[0,5]:=-1;
v[1,5]:=-1;
v[2,5]:=-1;
v[3,5]:=-1;
v[4,5]:=strtoint(edit6.Text);
v[5,5]:=-100;

{s}
s[0,0]:=-1000;
s[1,0]:=-1;
s[2,0]:=0;
s[3,0]:=-1;
s[4,0]:=0;
s[5,0]:=-1;

s[0,1]:=-1;
s[1,1]:=-1000;
s[2,1]:=0;
s[3,1]:=0;
s[4,1]:=-1;
s[5,1]:=-1;

s[0,2]:=-1;
s[1,2]:=0;
s[2,2]:=-1000;
s[3,2]:=0;
s[4,2]:=-1;
s[5,2]:=-1;

s[0,3]:=-1;
s[1,3]:=-1;
s[2,3]:=-1;
s[3,3]:=-1000;
s[4,3]:=-1;
s[5,3]:=0;

s[0,4]:=0;
s[1,4]:=0;
s[2,4]:=-1;
s[3,4]:=-1;
s[4,4]:=-1000;
s[5,4]:=-1;

s[0,5]:=-1;
s[1,5]:=-1;
s[2,5]:=-1;
s[3,5]:=-1;
s[4,5]:=0;
s[5,5]:=-1000;

{p}
for i:=1 to n do
p[4,i]:=-1;

p[4,q]:=1;


for i:=1 to n do
begin
pr:=1;
k:=q;
sr:=0;
while pr=1 do
begin
for i:=1 to n do
if (s[k,i]<>-1000) and (s[k,i]<>-1) then
if p[i,3]<>1 then
if p[i,1]>sr+s[k,i] then
begin
p[i,1]:=sr+s[k,i];
p[i,2]:=k;
p[i,3]:=0;
end;
min:=0;
for i:=1 to n do
begin
if p[i,4]=0 then
if p[i,1]<min then
begin
min:=p[i,1];
l:=i;
end;
p[l,3]:=1;
sr:=sr+p[l,1];
k:=l;
end;
pr:=1;
for i:=1 to n do
begin
if p[i,3]<>1 then pr:=pr+1;
end;
end;
end;
end;

[Dvoishnik]

весь этот код 1 большая ошибка.
какое хоть задание было??

[vlad1389]

Сообщение от Малайка

где ошибки

Видимо там, куда указывает компилятор. Хоть бы какую нибудь информацию по ошибкам предоставили.

[Малайка]

Сообщение от Dvoishnik

весь этот код 1 большая ошибка.
какое хоть задание было??

Программная реализация алгоритма дейкстры

и как же наддо