[Bargest]

каждый правильный например по 1 баллу, каждый неправильный по -1. Поставить в соответствие в массиве ответов несложно. Потом проходим по ответам и суммируем отмеченные.

Код:

type
TAnswer = record
 Ans: String;
 Mark: ShortInt;
end;

var Answers: array[0..9] of TAnswer;
sum:integer;
...
sum:=0;
for i:=0 to 9 do
 if <учеником отмечено I> then
  sum:=sum+Answers[i].Mark;