Запись в файл Опции

[John]

Привет ребята выручайте. У меня курсовик игра "о счастливчик". Я не могу написать
продедуру(функцию, незнаю) которая бы вводила в графическом режиме вопросы и записывала
их в файл:
1. В начале появляется прямоугольник в котором выбирается уровень сложности вопросов. Если
пользователь введет цифру 1 значит должен активироваться 1 файл( так и с цифро 2 -- актив. 2
файл, 3 -- актив. 3 файл).
2. Потом пользователь нажимает клавишу и появляется окно для ввода вопроса (все идет в
графическом режиме). И после ввода вопроса, нажимаем любую клавишу и этот вопрос
записывается в файл.
3. Потом после ввода вопроса пользователь нажимает клавишу и появляется окно для ввода
правильного ответа. И после ввода ответа, нажимаем любую клавишу и этот ответ записывается
в файл.
4. И так для 3 не правильных ответов.


Причем ввод идет в графическом режиме(тоесть нада продедура ввода текста в граф. режим).
Моя проблема в том что я не понимаю как записать и куда все эти вопросы( а их может быть много) и
ответы. И что бы при случайном выводе вопроса в графический режим ответы(и не правильные
ответы) тоже должны совпадать с этим вопросом).

[volvo]

Скажем, так:

var
  f1: file of Tvopros;
...

procedure vvod1; {ввод вопросов для 1 файла}
var
i:integer;
begin
  write('Question???'); readln(s1.question);
  readkey;
  for i:=1 to 4 do
     begin
       write('answer', i, ': '); readln(s1.answer[i]);
     end;
  write(f1, s1)
end;

{ Основная программа: }
...
  { Открыл файл }
  assign(f1, 'D:\all\1.bin');
  reset(f1);

  for i := 1 to 20 do begin
    vvod1; { Вводишь 20 вопросов }
  end;

  { Ввод окончен - файл можно закрыть }
  close(f1);
...

Кстати, теперь можно выбрать случайный вопрос из файла очень просто:

n := random(filesize(f1));
seek(f1, n);
read(f1, s1);