Делаем тесты

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Questions: array[1..10] of string;       //массив вопросов здесь на 10 элементов
  Answers: array[1..10,0..2] of string;    //массив ответов по три штуки на вопрос
  score: array[1..10,0..2] of integer;     //массив баллов за ответ
  results: array[1..3] of string;          //массив результатов
  i,k,sc:integer;                          //нужные в работе переменные
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);     //создание формы
begin
  i:=0;
  sc:=0;
  Button1.Caption:='begin';
 
  Questions[1]:='1';       //сюда вводим вопрос номер 1
  Answers[1,0]:='1,0';     //ответ 1
  score[1,0]:=0;           //балы за ответ 1
  Answers[1,1]:='1,1';     //ответ 2
  score[1,1]:=1;           //балы за ответ 2
  Answers[1,2]:='1,2';     //ответ 3
  score[1,2]:=2;           //балы за ответ 3
 
  Questions[2]:='2';       //2
  Answers[2,0]:='2,0';
  score[2,0]:=0;
  Answers[2,1]:='2,1';
  score[2,1]:=1;
  Answers[2,2]:='2,2';
  score[2,2]:=2;
 
  Questions[3]:='3';      //3
  Answers[3,0]:='3,0';
  score[3,0]:=0;
  Answers[3,1]:='3,1';
  score[3,1]:=1;
  Answers[3,2]:='3,2';
  score[3,2]:=2;
 
  Questions[4]:='4';      //4
  Answers[4,0]:='4,0';
  score[4,0]:=0;
  Answers[4,1]:='4,1';
  score[4,1]:=1;
  Answers[4,2]:='4,2';
  score[4,2]:=2;
 
  Questions[5]:='5';     //5
  Answers[5,0]:='5,0';
  score[5,0]:=0;
  Answers[5,1]:='5,1';
  score[5,1]:=1;
  Answers[5,2]:='5,2';
  score[5,2]:=2;
 
  Questions[6]:='6';     //6
  Answers[6,0]:='6,0';
  score[6,0]:=0;
  Answers[6,1]:='6,1';
  score[6,1]:=1;
  Answers[6,2]:='6,2';
  score[6,2]:=2;
 
  Questions[7]:='7';     //7
  Answers[7,0]:='7,0';
  score[7,0]:=0;
  Answers[7,1]:='7,1';
  score[7,1]:=1;
  Answers[7,2]:='7,2';
  score[7,2]:=2;
 
  Questions[8]:='8';      //8
  Answers[8,0]:='8,0';
  score[8,0]:=0;
  Answers[8,1]:='8,1';
  score[8,1]:=1;
  Answers[8,2]:='8,2';
  score[8,2]:=2;
 
  Questions[9]:='9';      //9
  Answers[9,0]:='9,0';
  score[9,0]:=0;
  Answers[9,1]:='9,1';
  score[9,1]:=1;
  Answers[9,2]:='9,2';
  score[9,2]:=2;
 
  Questions[10]:='10';    //10
  Answers[10,0]:='10,0';
  score[10,0]:=0;
  Answers[10,1]:='10,1';
  score[10,1]:=1;
  Answers[10,2]:='10,2';
  score[10,2]:=2;
 
  results[1]:='1';        //текст результата 1
  results[2]:='2';        //текст результата 2
  results[3]:='3';        //текст результата 3
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if i<10 then begin
    if i>0 then sc:=sc+ score[i,RadioGroup1.ItemIndex];
    Button1.Caption:='next';
    i:=i+1;
    Memo1.Clear;
    Memo1.Text:=Questions[i];
    RadioGroup1.Items.Clear;
    for k:=0 to 2 do
      RadioGroup1.Items.Add(Answers[i,k]);
    RadioGroup1.ItemIndex:=0;
  end
    else begin
      Button1.Caption:='begin';
      i:=0;
      Memo1.Clear;
      RadioGroup1.Items.Clear;
      if sc<=3 then ShowMessage(results[1])                   //тут границы для первой групы результатов
      else if (sc<7) and (sc>3) then ShowMessage(results[2])  //тут границы для второй групы результатов
      else if sc>=7 then ShowMessage(results[3]);             //тут границы для третей групы результатов
      sc:=0;
    end;
end;
 
end.