То, что учитель поспешил, не освобождает от необходимости выполнить задания
Можно сделать массив записей вида
Код:
type TTest=record
Question: String;
Answers: array[0..3] of String;
RightAns: byte;
end;
в текстовом файле вопросы пишутся так:
Код:
Как тебя зовут?
Миша
Петя
Саша
Ваня
3
Где ты живешь?
Севастополь
Челябинск
Мурманск
Владивосток
1
...
потом делаешь так:
Код:
var a:array[0..100] of TTest;
i,j:integer;
f:text;
...
i:=0;
assignfile(f,'123.txt');
reset(f);
while not eof(f) do
begin
readln(f,a[i].Question);
for j:=0 to 3 do
readln(f,a[i].Answers);
readln(f,a[i].RightAns);
end;
closefile(f);
получил требуемый массив.
НО вариантов всегда 4, правильный ответ один, каждый вопрос и ответ занимает строго одну строку.