Среднее арифметическое с подсчетом баллов

[Novichok95]

Мне необходимо осуществить подсчет баллов студента,смотря на процент его успеваемости,посещаемости и тд. Некоторые поля у меня числовые,а есть и такие в которых есть ответ да или нет(это о участии в мероприятии). тогда получается если он отвечает да тогда он должен указать какое место он занял например в олимпиаде(колледжной). если 1 место тогда ему добавляется 5 баллов если 2оем место тогда 4 балла,если 3е тогда 3 балла. Я думаю мне нужна переменная типа запись чтобы если выбрано поле да тогда добавить к этой переменной определенное количество баллов. есть некоторые наработки,помогите доработать до конца

var
i,summa:integer;
begin
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit2.text='85-96' then i:=summa+8;
if Form5.Dbedit2.text='70-84' then i:=summa+6;
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit3.text='99-100' then i:=summa+10;
if Form5.Dbedit3.text='97-98' then i:=summa+8;
if Form5.Dbedit3.text='94-96' then i:=summa+6;
if Form5.Dbedit3.text='0-96' then i:=summa-10;

вот некоторые наработки