Определение звания тестируемого

const Status=array [1..3] of string = ['Начинающий','Мастер','про'];//Название статуса
 Icon = array [1..3] of string = ['Icon1.png','Icon2.png','Icon3.png'];//Картинка,обязятельно формат пнг.ЕСЛИ ДЖИПГ то потключай спец. юнит
 n=3;//Кол-во рангов
 mmop = array [1..6] of integer = [0,5,6,10,11,15];//рамки
OnBuutonClick
 for i:=1 to n do //идем по всем рангам
  if (Op>=mmop[i*2-1]) and (op<=mmop[i*2]) then begin  //оп ето колво опита.Т.Е. звание?
lbl1.caption:=Status[i];Img1.picture.loadfromfile(icon[i]); end;//грузим текст+картинку

mmop = array [1..6] of integer = [0,5,6,10,11,15];//рамки

const Status=array [1..3] of string = ['Начинающий','Мастер','про'];

 N=3;//Кол-во рангов
 const Status=array [1..N] of string = ('Начинающий','Мастер','про');//Название статуса
 Icon = array [1..N] of string = ('Icon1.png','Icon2.png','Icon3.png');//Картинка,обязятельно формат пнг.ЕСЛИ ДЖИПГ то потключай спец. юнит
 mmop = array [1..2*N] of integer = (0,5,6,10,11,15);//рамки
 OnBuutonClick
 for i:=1 to n do //идем по всем рангам
   if (Op>=mmop[i*2-1]) and (op<=mmop[i*2]) then  //оп ето колво опита.Т.Е. звание?
      lbl1.caption:=Status[i];Img1.picture.loadfromfile(icon[i]);//грузим текст+картинку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    lbl1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 const N=3;//Êîë-âî ðàíãîâ
 
 
 
var
  Form1: TForm1;
  Status: array [1..N] of string = ('Íà÷èíàþùèé','Ìàñòåð','ïðî');//Íàçâàíèå ñòàòóñà  
  Icon: array [1..N] of string = ('Icon1.png','Icon2.png','Icon3.png');//Êàðòèíêà,îáÿçÿòåëüíî ôîðìàò ïíã.ÅÑËÈ ÄÆÈÏà òî ïîòêëþ÷àé ñïåö. þíèò
  mmop: array [1..2*N] of integer = (0,5,6,10,11,15);//ðàìêè
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    op:integer;
begin
Op:=StrToInt(edit1.Text);
for i:=1 to n do //èäåì ïî âñåì ðàíãàì
   if (Op>=mmop[i*2-1]) and (op<=mmop[i*2]) then
      lbl1.caption:=Status[i];
Img1.picture.loadfromfile(icon[i]);//ãðóçèì òåêñò+êàðòèíêó
end;
 
end.

 if Op in [mmop[i*2-1]..mmop[i*2]] then

Status=array [1..N] of string = ('Начинающий','Мастер','про');//Название статуса

const N=14;//количество званий
 
var
  Form1: TForm1;
  x1,x2,x3,x4,x5,x6,x7,x8,y,x11,x22,x33,x44,x55,x66,x77,x88,r,
  raiting: integer;
  golos,akciy,m1,m2,m3,m4,m5,m6,m7,m8,z: real;
  Status: array [1..N] of string = ('a','b','c','l','j',
  'u','y','t','x','e','dr',
  's','z','q');//Звания
  //Icon: array [1..N] of string = ('1.png','2.png','3.png');//картинка
  mmop: array [1..2*N] of integer = (0,5,6,10,11,15,16,20,21,25,26,50,51,100,101,500,501,1000,1001,
  5000,5001,10000,10001,50000,50001,100000,100001,500000);//рамки

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    op:integer;
begin
Op:=StrToInt(edit1.Text);
for i:=1 to N do //идем по рангам
   if Op in [mmop[i*2-1]..mmop[i*2]] then
      Label3.caption:=Status[i];
//Img1.picture.loadfromfile(icon[i]);//картинка+текст

x1,x2,x3,x4,x5,x6,x7,x8,y,x11,x22,x33,x44,x55,x66,x77,x88,r,
  raiting: integer;

case y of
0..5: Label3.Caption := 'Новичок';
6..10: Label3.Caption := 'Бывалый(ая)';
11..15: Label3.Caption := 'Уважаемый(ая)';
16..20: Label3.Caption := 'Мастер';
21..25: Label3.Caption := 'Профессионал(ка)';

var
  jpeg: TJPEGImage;
 
<...>
 
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  r:TResourceStream;
begin
  jpeg:=TJPEGImage.Create;
  r:=TResourceStream.Create(HInstance,'BGround',RT_RCDATA);
  jpeg.LoadFromStream(r);
end;  //END OF PROCEDURE
 
 
<...>
 
 
procedure TMainForm.FormPaint(Sender: TObject);
  // Отрисовка фона
var
  x, y: Integer;
begin
  y := 0;
  while y < Height do
  begin
    x := 0;
    while x < Width do
    begin
      Canvas.Draw(x, y, jpeg);
      x := x + jpeg.Width;
    end;
    y := y + jpeg.Height;
  end;
end;  //END OF PROCEDURE