Var Mass: array [1..10] Of real;
i,k: integer;
a,b: real;
Begin
Readln(Mass[1],Mass[2],Mass[3],Mass[4],Mass[5],Mass[6],Mass[7],Mass[8],Mass[9],Mass[10]);
For i:=1 To 10 Do
a := a+Mass[i];
a := a/10;
Repeat
Begin
inc(i);
If Mass[i]>Mass[i+1] Then
b := Mass[i]-a;
Mass[i] := b;
Mass[i+1] := Mass[i+1]+a;
inc(k);
End;
Else //Вот этот момент
Begin
b := Mass[i+1]-a;
Mass[i+1] := b;
Mass[i] := Mass[i]+a;
inc(k);
End;
Until i<>10
Writeln(k);
End.
Если о том как читать бинарные данные, то нужно знать описание формата файла.
Нужно уточнить вопрос.