var scores:array 1..10 of int %an array to store the scores
var fileno:int:=1
var filename:string:="textfile.txt" %remember, if you need to include a path, it'd be like "c:\\turing\\textfile.txt", you have to include that double \\

open:fileno, filename, get %this tells the computer to open the file with the name/path of "filename", and when you are going to use it, you'll be referring to it with the integer "fileno".  The "get" tells the computer you'll be reading in information.

for count:1..10
      get:fileno, scores(count) %this will read in the current line up to the first space and assign the scores(count) to it.  if you had get:fileno, scores(count):* instead, it would read in the entire line

end for

close:fileno %this will close the text file, while possibly not required sometimes, it's good procedure.  And sometimes if you don't do this, your program will not function properly *knows from personal experience... and took two days to figure out that was the reason a program wasn't working*

%then you can use a simple sorting algorithm to sort the numbers; if you want to store them in order, use an array of same length.

var orderedscores:array 1..10 of int
var highest, scorecount:int


%I didn't want to show the entire code, but I'm a bit tired and busy right now to explain it... you should be able to figure it out I hope

for count1:1..10
      highest:=0
      for count2:1..10
             if scores(count2)>highest then
                     highest:=scores(count2)
                     scorecount:=count2
             end if
      end for
      oderedscores(count1):=highest
      scores(scorecount):=0
end for

%Then outputing back to a .txt file is similar to get:

open:fileno,filename, put %notice the "put" this time instead of "get"

for count3:1..10
       put:fileno, orderedscores(count3)
end for

close:fileno %DON'T FORGET TO CLOSE! :P