Слияние файлов и массивы, Помогите решить 4 задачки. Опции

[vicsem]

Всем привет!
Люди помогите с решением 4 задачек, очень нужно

Условия:
15.28
type F1=file of integer
Пусть в каждом из файлов f и g элементы упорядочены по убыванию.
Требуется слить эти файлы в один h, также упорялочить по убыванию.
Решение задачи описать в виде процедуры merge(f, g, h) от параметров F1.

14.12
type M=set of 0…99
Описать функцию card(A), подсчитывающую количество элементов, в множестве А типа М.

14.30
type продукт=(хлеб, масло, молоко, мясо, рыба, соль, сыр, колбаса, сахар, чай, кофе);
ассортимент=set of продукт;
магазины=aray[1…20] of ассортимент;
описать роцедуру наличие(Маг., А, В, С), которая по инф из массива Маг типа магазины(Маг, ai – это множество продуктов, имеющихся в i-м магазине) присваивает параметрам А, В и С типа ассортимент следующие значения:
А – множество продуктов, которые есть во всех магазинах;
В – множество продуктов, каждый из которых есть хотябы в одном магазине;
С – множество продуктов, которых нет ни в одном магазине.

15.19
Дана непустая последовательность слов, содержащих от 1 до 8 букв;
между соседними словами – запятая, за последним – точка.
Напечатать все слова, отличные от последнего.

[volvo]

write_set - это процедура (она тоже описана в программе...)
Проверь как следует, все ли скопировал... У меня тоже TP70 и все работает...