Исправьте код, где то тут ошибка и он на всех решениях ставит 0.. хотя по условию не равно 0!! помогите пожалуйста
//Метод ближайшего соседа
program Pl1;
var A : Array[0..100,0..100] of integer; B : Array[1..100] of integer; C : Array[1..100] of integer;
i,j,t,n,v,k,s,u:integer; min:integer;
//Íà÷àëî ïîäïðîãðàììû:
procedure PP(n: integer; t:integer; k:integer; var s:integer); var i,v,f: integer;
begin k:=1; if k<=n then f:=1; min:=A[t,f]; if min=0 then begin f:=f+1; min:=A[t,f]; end; for j:=1 to n do begin if ((A[t,j]<min)and (A[t,j]<> 0)) then begin
min:=A[t,j]; f:=j; end; B[k]:=min; C[k]:=f; if k=0 then begin t:=f; f:=0; end; k:=k+1 end; end; begin S:=0; for i:=1 to n do begin S:=S+B[i]; end;
//Îñíîâíàÿ ïðîãðàììà:
begin write('Ââåäèòå êîëëè÷åñòâî ãîðîäîâ: '); readln(n); for i:=1 to n do begin for j:=i to n do begin if i=j then A[i,j]:=0 else if i<j then begin write('ВВедите расстояние от города, до города: '); readln(A[i,j]); A[i,j]:=A[j,i]; end; end; end;
begin Write('Введите город: '); Readln(t); PP(n,t,k,S); write(S); for i:=1 to k do begin writeln(C[i]) ; end; end; end; end.