Как сделать критерии оценок в тесте

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
int s=0, i=0, pravil_otvet, nomer=0;//s-сумма правильных ответов, i-вспомогательная переменная, nomer-номер текущего вопроса
 
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::N1Click(TObject *Sender)
{
Form4->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
 Form2->Visible=false;
 Form3->Visible=true;
 Form3->Label2->Caption=s;        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
 if(RadioButton1->Checked==true)i=1;//проверяем, какой ответ был выбран
 if(RadioButton2->Checked==true)i=2;
 if(RadioButton3->Checked==true)i=3;
 if(RadioButton4->Checked==true)i=4;
 if(i==pravil_otvet)s++;//если выбранный и правильный совпадают, то увеличиваем сумму на единичку
 i=0;//обнуление требуется для корректного подсчета суммы
 
 RadioButton1->Checked=false;//очищаем нажатую кнопку
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 
 nomer++;//номер вопроса изменяется с каждым нажатием кнопки
 
switch(nomer)
{
  case 1:
           Form2->Label5->Caption="Нужно ли выключать компьютер по окончании работы?";
           Form2->Label1->Caption="при надобности";
           Form2->Label2->Caption="да";
           Form2->Label3->Caption="нет";
           Form2->Label4->Caption="без надобности";
           pravil_otvet=2;
                   break;
 
  case 2:
           Form2->Label5->Caption="Что разрешается ученику в кабинете информатики только с позволения учителя?";
           Form2->Label1->Caption="сдвигать с места монитор и системный блок";
           Form2->Label2->Caption="передвигаться по кабинету во время урока";
           Form2->Label3->Caption="отключать и подключать устройства к компьютеру";
           Form2->Label4->Caption="класть что-либо на клавиатуру";
           pravil_otvet=1;
                   break;
 
  case 3:
           Form2->Label5->Caption="Где вам разрешается ставить сумки, пакеты, вещи?";
           Form2->Label1->Caption="возле входа в кабинет на специально отведённый для этого стол";
           Form2->Label2->Caption="возле своего рабочего места";
           Form2->Label3->Caption="на подоконник";
           Form2->Label4->Caption="в уголу";
           pravil_otvet=1;
                   break;
 
  case 4:
           Form2->Label5->Caption="Какие компьютерные программы можно запускать во время урока?";
           Form2->Label1->Caption="любые";
           Form2->Label2->Caption="только те, которые вам разрешил запустить учитель во время урока";
           Form2->Label3->Caption="только те, которые изучали раньше";
           Form2->Label4->Caption="только те, которые изучаем сейчас";
           pravil_otvet=2;
                   break;
           
  case 5:
           Form2->Label5->Caption="Можно ли ученикам разговаривать в кабинете информатики во время урока?";
           Form2->Label1->Caption="да";
           Form2->Label2->Caption="можно, но очень тихо, чтобы не отвлекать других учеников";
           Form2->Label3->Caption="нет";
           Form2->Label4->Caption="можно, но чтобы не услышал учитель";
           pravil_otvet=1;
                   break;
           
  case 6:
           Form2->Label5->Caption="При появлении запаха гари или странного звука необходимо";
           Form2->Label1->Caption="продолжить работу за компьютером";
           Form2->Label2->Caption="сообщить об этом учителю";
           Form2->Label3->Caption="немедленно покинуть класс";
           Form2->Label4->Caption="выключить компьтер";
           pravil_otvet=1;
                   break;
           
  case 7:
           Form2->Label5->Caption="Как следует нажимать на клавиши?";
           Form2->Label1->Caption="с усилием и ударом;";
           Form2->Label2->Caption="плавно";
           Form2->Label3->Caption="сильно";
           Form2->Label4->Caption="с усилием";
           pravil_otvet=2;
                   break;
 
  case 8:
           Form2->Label5->Caption="Разрешается ли приносить в класс продукты питания и напитки?";
           Form2->Label1->Caption="да, только в том случае, если сильно хочется, есть или пить";
           Form2->Label2->Caption="нет";
           Form2->Label3->Caption="да";
           Form2->Label4->Caption="разрешается , если незаметно пронести в партфели";
           pravil_otvet=3;
                   break;
 
  case 9:
           Form2->Label5->Caption="Что нужно сделать по окончании работы за компьютером?";
           Form2->Label1->Caption="привести в порядок рабочее место, закрыть окна всех программ, задвинуть кресло, сдать учителю все материалы, при необходимости выключить компьютер";
           Form2->Label2->Caption="расписаться в журнале учета работы пользователей за компьютером";
           Form2->Label3->Caption="покинуть кабинет";
           Form2->Label4->Caption="выключить компьютер";
           pravil_otvet=4;
                   break;
 
  case 10:
           BitBtn1->Enabled=false;
           RadioButton1->Enabled=false;//делаем кнопки "не нажимаемыми", чтобы пользователь нажал на "закончить тест"
           RadioButton2->Enabled=false;
           RadioButton3->Enabled=false;
           RadioButton4->Enabled=false;
}
}

String rez = "";
if (s >= 25 && s <=30) then
 rez = "Оценка 5";
else if (s >= 18 && s <=24) then
 rez = "Оценка 4";
......

void __fastcall TForm2::BitBtn2Click(TObject *Sender)
 {
Form3->Label6->Caption=Form1->Edit3->Text;
Form3->Label7->Caption=Form1->Edit4->Text;
 Form2->Visible=false;
 Form3->Visible=true;
 Form3->Label2->Caption=s;
 Form3->Label5->Caption= rez;
 String rez = "2,3,4,5";
if (s >= 25 && s <=30);
 rez = "Оценка 5" ;
if (s >= 18 && s <=24)  ;
 rez = "Оценка 4";
 if (s >= 13 && s <=17)  ;
 rez = "Оценка 3";
 if (s >= 0 && s <=12)  ;
 rez = "Оценка 2";
}