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

[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.

[Артемий]

var
f1,f2: Text;
i,j: integer;
begin
assign(f1,'File1.txt');
rewrite(f1);
assign(f2,'File2.txt');
rewrite(f2);
randomize;

for i:=1 to 25 do begin
 writeln(f1,random(200)-1); end;

for i:=1 to 20 do begin
 writeln(f2,random(200)-1); end;
close(f1); close(f2);
readln
end.

Вторая...

[Kaliban]

Спасибо большое, сорри, не доисал немного, вывод в 3й файл еще

Необходимо организовать третий файл File3.txt,в который должны быть переписаны в порядке возрастания все числа из первого и второго файла.причем числа, содержащиеся одновременно в первом и втором файлах,в файле File3.txt повторяться не должны

[Kaliban]

Но вот первая как раз сейчас особенно актуальна

[Kaliban]

Во второй задаче при чтении из двух предыдущих файлов ошибка, как записать чтение правильно?

Для сортировки нужно создать массив из 45(20+25) чисел, и как правильно отсортировать, чтобы значения не повторялись?

Можно зделать так if x[i]<>x[i-1] then do типа вывод, else ничего не выводить
но прога будет проверять только предыдущий элемент?