Так... Вот решение, написано на Delphi XE5. Текстовый файл (Results.txt) в комплекте. Я в него вписал 6 строчек всего, формат: Фамилия 1_вид 2_вид 3_вид 4_вид 5_вид, разделители - пробелы.
Сначала файл считывается в StringGrid, который на форме (кол-во строк в нем изменяется динамически, т.е. в файле записей может быть и 3 и 100500).
Ну а дальше уже простейший подсчет. Если что-то сделать по-другому, пиши. Исходник с комментариями