highest

 t[0] := 0;
  t[1] := 0;
  for i := 1 to length(data) do begin
    if data[i].score > t[1] then begin
      t[0] := i;
      t[1] := data[i].score;
    end;
  end; // for
  writeln('Congratulations to ', data[t[0]].name,' for having the highest score of ', t[1],'!');