FOR j:=1 TO n DOIF a[i,k] a(k )<[ijl THENBEGINa[ijl: a[i,k] ak.jlFORU=1 Tondopathli.u):=path[ik,u ]path[k,,u]ENDFORIAITONDOFORJ:=1 TO n DOFORUI TONDOpathi ju] THEBEGINwrite(" The shortest length from,i, "to j, is, ali,j)):writcln(pathi,u)ENDELSE writeln("The shortest length from ,i, to' J, isnot existing!')END