Записи, вывод в файл Опции

[Kaliban]

Напишите плиз две проги простеньких

1) Даны описания:

type str  = string[12];
   Exzam = (Matem,Inform,Ximi);
   Student = record
   FIO: record F,I,O: STR 
   end;
   
GR: 1..3;
OTM: array[Exzam] of 2..5
end;

Обработав сведения исходного файла (15 - 20 данных), следует в новый файл помесить номер группы, фамилию, инициалы студентов, не сдавших экзамены и их количество.

2)
Написать программу,которая создает в текущей папке магнитного диска два текстовых файла File 1.txt и File2.txt

В первый файл должны быть записаны в произвольном порядке 25 положительных целых чисел,не привосходящих по своей величине 200. Во второй должны быть записаны в произвольном порядке 20 положительных чисел,так же не превосходящих по своей величине 200.

[Ozzя]

reset(f1); // Тут! До цикла! А НЕ в теле цикла!
for i:=1 to 25 do
  read(f1, a[i]);