Блок-схема.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
f:textfile;
nq:integer;
right:integer;
level:array[1..4] of integer;
mes: array[1..4] of string;
buf:string;
 
function nextqw:boolean;
begin
if not eof(f) then begin
readln(f,buf);
form1.Label1.Caption:=buf;
 
readln(f,buf);
form1.label2.caption:=buf;
readln(f,buf);
form1.RadioButton1.Tag:=strtoint(buf);
 
readln(f,buf);
form1.Label3.Caption:=buf;
readln(f,buf);
form1.RadioButton2.Tag:=strtoint(buf);
 
readln(f,buf);
form1.Label4.caption:=buf;
readln(f,buf);
form1.RadioButton3.tag:=strtoint(buf);
 
readln(f,buf);
form1.label5.caption:=buf;
readln(f,buf);
form1.RadioButton4.Tag:=strtoint(buf);
 
nq:=nq+1;
 
form1.Button1.Enabled:=false;
form1.RadioButton1.checked:=false;
form1.RadioButton2.checked:=false;
form1.RadioButton3.checked:=false;
form1.RadioButton4.checked:=false;
 
nextqw:=true;
end
else
nextqw:=false;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
fname:string;
begin
fname:=paramstr(1);
if fname='' then
begin
showmessage('В командной строке запуска программы' + #13 + 'надо указать имя файла теста');
application.terminate;
end;
assignFile(f,fname);
 
try
reset(f);
except
on eInouterror do
begin
showmessage('ошибка обращения к файлу теста:' + fname);
application.terminate;
end;
end;
 
readln(f,buf);
form1.caption:=buf;
 
for i:=1 to 4 do
begin
readln(f,buf);
mes[i]:=buf;
readln(f,buf);
level[i]:=strtoint(buf);
end;
 
right:=0;
nq:=0;
nextqw;
 
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
buf:string; i:integer;
begin
if button1.caption='завершить' then close;
 
if radiobutton1.Checked then
right:=right + radiobutton1.tag;
if radiobutton2.Checked then
right:=right + radiobutton2.tag;
if radiobutton3.Checked then
right:=right + radiobutton3.tag;
if radiobutton4.Checked then
right:=right + radiobutton4.tag;
 
if not nextqw then begin
button1.caption:='завершить';
radiobutton1.Visible:=false;
radiobutton2.Visible:=false;
radiobutton3.Visible:=false;
radiobutton4.Visible:=false;
label2.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;
 
buf:='тестирование завершено' + #13 + 'правильных ответов' + inttostr(right)+ 'из' + inttostr(nq) + '.' + #13;
i:=1;
while (right<level[i]) and (i<4) do
inc(i);
buf:=buf+mes[i];
 
label1.autosize:=true;
label1.caption:=buf;
end;
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
button1.enabled:=true;
end;
 
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
button1.enabled:=true;
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
button1.enabled:=true;
end;
 
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
button1.enabled:=true;
end;
 
end.