[Bargest]

я ошибся:

Код:

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[j]);
 readln(f,a[i].RightAns);
end;
closefile(f);

readln(X); - считать сроку в переменную X
readln(f,...); - считать строку из файла
readln(f,X); по аналогии считать из файла в переменную X.
a[i].Question - строка. Читаем в нее.
a[i].Answers - массив строк. Читаем в цикле.
a[i].RightAns - байт. Читаем отдельно.