for i=1 to 5

     for j=i to 5

          if mydata[i].runtime<=mydata[j].runtime then

              temp:=mydata[i].runtime;

               mydata[i].runtime:=mydata[j].runtime;

               mydata[j].runtime:=temp;

              temp:=mydata[i].No;

               mydata[i].No:=mydata[j].No;

                mydata[j].No:= temp;

    next

next