//[TotalScript]
Program Total_results;
var i, j : integer; 
begin
For i := 0 to GetArrayLength(Pilots)-1 do 
  begin 
    Pilots[i].Total := 0; 
    For j := 0 to GetArrayLength(Pilots[i].DayPts)-1 do 
    begin 
      Pilots[i].Total := Pilots[i].Total + Pilots[i].DayPts[j]; 
    end; 
  end; 
end.