Нахождение минимального пути: выход за пределы массива

uses crt;
var x:array[1..10,1..10] of integer;
    l:array[1..10] of integer;
    lf:array[1..10,1..10] of integer;
    t,j,i,n,z,max,min:integer;
 
procedure vv;
begin
  i:=1;
  max:=0;
  while i<n do                              
  begin
    j:=i+1;
    while j<=i+3 do
    begin
      write('Введите длину вершины x ',i,'-',j,':');
      read(x[i,j]);
      if x[i,j]>max then max:=x[i,j]+1;
      j:=j+1;
    end;
    i:=i+3;
  end;
  i:=2;
  while i<=n do
  begin
    j:=i+2;
    while j<=n do
    begin
      write('Введите длину вершины x ',i,'-',j,':');
      read(x[i,j]);
      j:=j+2;
      if j>n then i:=n;
      if x[i,j]>max then max:=x[i,j]+1;
    end;
    i:=i+3;
    if i>n then i:=n
  end;
  i:=3;
  while i<n do
  begin
    j:=i+1;
    while j<=n do
    begin
      if j<=n then begin
      write('Введите длину вершины х ',i,'-',j,':');
      read(x[i,j]);
      j:=j+2;
      if x[i,j]>max then max:=x[i,j]+1;
    end;end;
    i:=i+3  
  end;    
end;
 
procedure metod;
var i,k:integer;
begin
  i:=2;
  while i<n do
    l[i]:=max;
  min:=max;
  l[1]:=0;
  t:=1;
  i:=2;
  while i<i+3 do
  begin
    if l[i]<l[t]+x[t,i] then l[i]:=l[i]
                        else l[i]:=l[t]+x[t,i];
    for i:=1 to n do
      if l[i]<min then z:=i;
    i:=i+1;
  end;
  for i:=1 to n do
    lf[1,i]:=l[i];
  repeat
    t:=z;
    i:=t+1;
    while i<i+3 do
    begin
      if l[i]>0 then
      begin
        if l[i]<l[t]+x[t,i] then l[i]:=l[i]
                            else l[i]:=l[t]+x[t,i];
        for i:=1 to n do  
          if l[i]<min then z:=i;
        i:=i+1;
      end;
    end;
    for k:=1 to n do
      lf[1,i]:=l[i];
  until z=n;                
end;
 
procedure viv;
var i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
    begin
      write(lf[i,j]);
    end;
end;
 
begin
  write('Введите количество вершин: ');
  readln(n);
  clrscr;
  writeln('Ввод вершин');
  vv;
  readkey;
end.