Программа с файлами

[Maray]

Добрый вечер!

Помогите пожалуйста с программой. Free Pascal. Вроде начала писать, но не знаю, так я поняла условие задачи или нет. Помогите пожалуйста, если не правильно, написать программу.

Условие: Студентам пятого курса была предложена анкета о том, знание каких из прочитанных курсов могут потребоваться в будущей работе. Результаты анкетирования были занесены в файл. Напишите программу создания файла анкетирования. Список прочитанных курсов: математических анализ, алгебра, информатика, численные методы, дифференциальные уравнения, теория вероятности, функциональный анализ

Моя программа:

Program Z9761;
Procedure Make(var TextFile:text; fio:string);
var
   str:string;
 
begin
writeln(fio);
 Assign(TextFile, 'test2.txt');
 writeln(TextFile, fio);
 readln(str);
 writeln(TextFile, str);
 writeln(TextFile);
 str:='';
 end;
 
var TextFile:text;
    i,n:byte;
    fio:string='Vvedite FIO: ';
    Mat:string='Mat analiz';
    Alg:string='Algebra';
    Inf:string='Informatika';
    Chisl:string='Chislenie metodi';
    Yrav:string='Dif. yravnenia';
    Teor:string='Teorya veroyatnosti';
    Funk:string='Funk. analiz';
 
begin
 writeln('Введите количество человек, проходящих анкету');
 read(n);
  for i:=1 to n do
 begin
 Make(fio);
 Make(Mat);
 Make(Alg);
 Make(Inf);
 Make(Chisl);
 Make(Yrav);
 Make(Teor);
 Make(Funk);
 Close(TextFile);
 end;
 end.