Вывод записи в файл с меню - PascalABC.NET

Формулировка задачи:

Нужно вывести запись из программы(которая будет в комментах) в файл *.txt, с меню выбора выводить запись в файл или в окно вывода pascal и выводить студентов пола "м" или "ж".

Еще есть проблема в том что на вывод идет только последний элемент записи(хотя в этом случае вывод в паскаль не будет нужен).

Uses
 CRT;
type v=record
 fio,pol:string[25];
 ball1,ball2,ball3,ball4,gr,voz_st:integer;
end;
var
 spisok:array[1..25] of v;
 MinAgeIndex, MaxAvgMarkIndex:Integer;
 MaxAvgMark:Real;
 i,n:integer;
 f:text;
begin
repeat
 write('введите количество студентов: ');
 readln(n);
until n in [1..25];
MinAgeIndex:=1;
for i:=1 to n do
begin
 writeln('вводите данные следующего студента: ');
  with spisok[i] do
   begin
    write('Введите ФИО: ');
    readln(fio);
    write('пол: ');
    readln(pol);
    write('Введите возраст: ');
    readln(voz_st);
    write('номер группы: ');
    readln(gr);
    write('оценка по 1-ому предмету: ');
    readln(ball1);
    write('оценка по 2-ому предмету: ');
    readln(ball2);
    write('оценка по 3-ему предмету: ');
    readln(ball3);
    write('оценка по 4-ому предмету: ');
    readln(ball4);
   end;
end;
 
WriteLn('ФИО-', spisok[i].fio,'; Возраст-', spisok[i].voz_st, '; Группа-',spisok[i].gr,'; Пол -',spisok[i].pol,';');
end.

Решение задачи: «Вывод записи в файл с меню»

Листинг программы

  for i := 1 to n do
    with spisok[i] do
      WriteLn('ФИО-', fio,'; Возраст-', voz_st, '; Группа-', gr,'; Пол -',pol,';');

Объяснение кода листинга программы

Объявляется цикл for, который будет выполняться от 1 до n (количество элементов в списке).
В каждой итерации цикла происходит переход к следующему элементу списка (spisok[i]).
Для каждого элемента списка происходит вывод на экран информации о нем.
Выводимая информация состоит из нескольких частей, разделенных символом ';'.
Каждая часть информации представляет собой пару название-значение.
Названия и значения переменных (fio, voz_st, gr, pol) заключены в кавычки, чтобы сохранить их как строки.
Вывод на экран каждой части информации осуществляется с помощью функции WriteLn.