fin := FileStream fileNamed: 'f1.dat'.
sum := 0.
num := 0.
max := 0.
maxp := nil.
[ fin at End ] whileFalse: [
  line := ReadStream on: fin nextLine.
  name := line upTo: $=.
  point := line nextLine asInteger.
  sum := sum + point.
  num := num + 1.
  ( max < point ) ifTrue: [
      max := point.
      maxp := name
  ].
].
fin close.
Transcript show: 'Best ',maxp,'(',(max asString),')'; cr.
Transcript show: 'Average: ',( (sum/num) asFloat asString ); cr