var n: integer; s: string;
...
n:=0;
WriteLn('Вопрос:');
ReadLn(s); 
if s = 'ответ' then inc(n);
...
WriteLn('Кол-во баллов:', n);