Мой проект на 3 недели, Курсовая работа Опции

[bagay]

Мне выдали курсовую работу по паскалю. Зделать викторину на подобии Кто хочет стать миллионером.
вопрос, 4 варианта ответов и с помощю клавиш а,б,в,г. выбирать ответ, 15 вопросов, и в конче результат и сравнение с другими результатами, Кто нибуть представляет как ето делать ? если нетрудно помогите хоть чемнибуть а то 1.5 недели осталось а я ток титульник зделал

[amega]

окончательний вариант:

program millioner;

uses crt;

type
	Tquestions = record
		questions:string[254]; {вопрос}
		answers:array ['a'..'d',1..2] of string[254]; {4 варианта ответа, 2 поле T(True) или F(false)}
		ball:integer; {бал за ответ}
	end;
	TfileQuestions = text;
	Tresult = record
		name:string[254]; {имя}
		ball:integer; {заработано балов}
	end;
	TfileResult = file of Tresult;
procedure read_from_file(var f1:TfileQuestions; var q:Tquestions);
var
	i:char;
begin
readln(f1,q.questions);
for i:='a' to 'd' do
	begin
		readln(f1,q.answers[i,1]);
		if q.answers[i,1][1]='@' then
			begin
			q.answers[i,2]:='T';
			delete(q.answers[i,1],1,1);
			end
		else 
			q.answers[i,2]:='N';
	end;
readln(f1,q.ball);
end;

procedure show(q:Tquestions);
begin
	writeln(q.questions);
	writeln('Answers:');
	writeln('a) ',q.answers['a',1]);
	writeln('b) ',q.answers['b',1]);
	writeln('c) ',q.answers['c',1]);
	writeln('d) ',q.answers['d',1]);
end;
procedure show2(var f2:TfileResult);
var
	profil:Tresult;
begin
Writeln('Inwi resultatu');
while not eof(f2) do 
	begin
		read(f2,profil);
		Writeln(profil.name,' ',profil.ball);
	end;
end;
var
	Q:Tquestions;
	f1:TfileQuestions;
	f2:TfileResult;
	profil:Tresult;
	otv:char;
begin
clrscr;
assign(f1,'data.txt');
assign(f2,'result.rec');
reset(f1);
reset(f2);
Writeln('Enter your name:');
readln(profil.name);
profil.ball:=0;
while not eof(f1) do
	begin
		read_from_file(f1,q);
		show(q);
		write('Your answers: ');
		readln(otv);
		if (q.answers[otv,2]='T') then
			profil.ball:=profil.ball+q.ball
		else
			begin
				Writeln('An answer is incorrect!!');
				break;
			end;
	end;
Writeln('You have: ',profil.ball);
seek(f2,filesize(f2));
write(f2,profil);
close(f2);
readln;
reset(f2);
show2(f2);
close(f2);
readln;
end.

текстовый файл имеет такую струтуру:

Код

chislo pI=?
@3.14
2
4.123
1
100
R9d Fibanachi
@1 1 2 3 5
1 1 1 3
1 2 3
1 2 4
200

Файл result.rec должен бить создан вручную до запуска програми!!