Нужно исправить ошибки

type
  Graph = array[1..10,1..10] of integer;
 
  var i,j,k,n,q: integer;
  w,z,a: graph;
begin
  write ('кол-во вершин  = ');
  read (n);
  writeln;
  writeln ('Введите матрицу смежности');
  writeln ('(для бесконечности используйте значение 100)');
      for i:=1 to n do      
      for j:=1 to n do    
      begin
        write ('w[',i,',',j,']=');
        read (w[i,j]);        
       end;       
           for i:=1 to n do begin   
           for j:=1 to n do begin
             write (w[i,j]:6);
             end;
            writeln;
       end;   
      writeln ('Матрица путей');
     for i:=1 to n do
     for j:=1 to n do      
       if (w[i,j]=0) and (w[i,j]>0) and (w[i,j]<100) then
       begin
         z[i,j]:=i;        
       end;
            for i:=1 to n do begin   
            for j:=1 to n do begin
               write (z[i,j]:6);
            end;
          writeln;
     end;        
       writeln;
       writeln;
  k:=0;
  while k<n+1 do begin
  writeln ('k=',k);  
  for i:=1 to n do a[i,i]:=0;
  for q:=1 to n do
    for i:=1 to n do
    for j:=1 to n do     
      if (w[i,k]+w[k,j] < w[i,j]) then
        begin
          w[i,j]:=w[i,k]+w[k,j];
          z[i,j]:=z[k,j];
        end;
      writeln;      
      writeln ('Матрица смежности');
     for i:=1 to n do begin   
     for j:=1 to n do begin
          write (z[i,j]:6);
         end;
       writeln;
     end;
      writeln;
      writeln ('Матрица путей');
       for i:=1 to n do begin   
            for j:=1 to n do begin
               write (z[i,j]:6);
            end;
          writeln;
     end;
      writeln;
    k:=k+1;
  end;
end.