[Guneska]

Доброго времени суток, уважаемые форумчане!
В колледже на практике задали сделать программу по психологии: чтобы студент прошёл тест, результат подсчитался и вывелся его Тип (описание типов в приложенном фото в столбце "Шкала"). Застряла на том, как же ввести в программу данные (с фото). Case, по-моему не подходит. Делать 10 отдельных массивов...? В общем, программирование я ещё знаю плохо, немного работала с консольным приложением, а тут задали сделать полноценную программу. Помогите, пожуйста - в каком виде ввести в программу данные с фото. Работаю в Delphi XE3.
P.S. архив с программой почему-то не загружается, выкладываю листинг так.

Код:

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    btn1: TButton;
    Label1: TLabel;
    Button2: TButton;


    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  f: Textfile; //файл теста
  buf:string;
  //nextqw следующий вопрос
i,j:integer;  //i, j счётчики нажатия кнопок "Да" и "Нет"
implementation

uses Unit1;

{$R *.dfm}
function nextqw:boolean;

begin
   if not eof(f) then nextqw:=false;
     begin
        form2.Label1.Caption:=buf;
        readln(f,buf);
        nextqw:=true;
      end;
end;
procedure TForm2.btn1Click(Sender: TObject);
begin
i:=i+1; //"да"
nextqw;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
j:=j+1; // "Нет"
nextqw;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
AssignFile(f,'2.txt');
reset(f);
readln(f,buf);
form2.Caption:=buf;
readln(f,buf);
nq:=0;
nextqw;
end;
end.