Проблема компиляции

uses UGraph1, GraphABC;
var
  f: text; A,B:TMatr;
  n,v,u:integer;
  C:TCoordV;
  FF: array of integer; VV: array of boolean;
 
procedure readM01(var A:TMatr; var B: TMatr; s: string; var C: TCoordV);
var
  x,y,z,i,j:integer;
begin
  assign(f,s);
  reset(f);
  readln(f,n);
  setlength(A,n+1,n+1);
  setlength(B,n+1,n+1);
  for i:= 0 to high(A) do 
    for j:= 0 to high(A) do begin A[i,j]:= 0; B[i,j]:= 0; end;
 
while not eof(f) do
begin
  readln(f,s);
  x:=strtoint(copy(s,1,pos(' ',s)-1));
  delete(s,1,pos(' ',s));
  y:=strtoint(copy(s,1,pos(' ',s)-1));
  delete(s,1,pos(' ',s));
  z:=strtoint(copy(s,1,length(s)));
  A[x,y]:=1; A[y,x]:=1;
  B[x,y]:=z; B[y,x]:=z;
end;
setlength(C,n+1);
newCoord1(C);
close(f);
end;
procedure AlgD(A:TMatr; start: integer; var F: array of integer; Var V: array of boolean);
var minR, minV, i,j:integer;
begin
  F[start]:=0;
  while true do begin
    minR:=maxInt;
    for i:=1 to high(a) do
      if V[i] and (F[i]<minR) then begin
        minR:=F[i]; minV:=1;
      end;
      if minR = maxInt then break;
      V[minV]:=false;
      for j:= 1 to high(a) do 
        if (V[j] and (A[minV,j] <> 0) and (F[j] > F[minV]+A[minV,j]) then
          F[j]:=F[minV]+A[minV,j];
  end;
end;
begin
  readM01(A,B, 'Data.txt',C);
  printM(A);
  writeln;
  writeln('Для того что-бы нарисовать граф,введите 0');
  readln(v);
  Window.Clear;
  if v = 0 then drawGraph(A,C);
  setlength(FF,high(A)+1);
  setlength(VV,high(A)+1);
  for v:=1 to high(A) do begin
    FF[v]:=maxInt;
    VV[v]:=true;
  end;
  write('Введите вершину,от которой хотите найти путь:');
  writeln;readln(v);
  AlgD(B,v,FF,VV);
  write('Пути от вершины');
  write('F= ',v,': ');
  for v:=1 to high(a) do write(FF[v],'; ');
end.