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

[bagay]

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

[Lapp]

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

Беда в том, что я никогда не видел эту передачу... Хорошо, давай попробуем.

Логично сделать текстовый файл для вопросов и ответов (вместе). Примерно так:

Где прячется Усама Бен Ладен?
В Афганистане.
В США.
@На Марсе.
В России.

Клюет ли сегодня акула на Австралийском побережье?
Нет.
Да.
Может быть.
@Да, но только не на Австралийском побережье, а в Париже, и не акула, а Ягуар, и не сегодня, а третьего дня, и не клюет, а стоял в пробке..

- группы строк разделены одной пустой строкой (это даст возможность делать не только 4 варианта, а сколько хошь при желании). Первая строка - вопрос, остальные - ответы. Правильный ответ начинается с символа @ (если не нравится - выбери любой другой, только чтобы он был особенным, не просто буквой/цифрой). В конце файла нужно оставить ровно одну пустую строку (это важно).

Для чтения организуй массив рекордов типа так:

type
  tTask= record
    question: string;
    answer: array[1..4]of string;
    Correct,k: integer
  end;
var
  Tasks: array[1..15]of tTask;

Потом читаешь файл:

n:=0;
while not EoF(f) do begin
  Inc(n);
  with Task[n] do begin
    ReadLn(f,question);
    k:=0;
    repeat
      ReadLn(f,s);
      if s<>'' then begin
        Inc(k);
        if s[1]='@' then begin
          correct:=k;
          Delete(s,1,1)
        end;
        answer[k]:=s
      end
    until s=''
  end
end

Вот, сделай это все и покажи, что выходит. Тогда пойдем дальше. Ок?