Сделать лабораторную работу и решить задачу

Лабораторная работа
Задание 1.
Разработать программу, которая вводит с терминала множество множеств. Компонентами каждого из множеств являются целые числа (каждое множество вводится на отдельной строке и помещается в однонаправленный список, мощность множества не более 20, при вводе выполняется нормализация представления, т.е. подпрограмма ввода должна обеспечить уникальность элементов в списке). Само множество множеств представляется однонаправленным списком указателей на первые элементы соответствующих списков. После ввода все множества выводятся в порядке возрастания мощностей.
Ввод множества чисел, множества множеств, определение мощности, упорядочение и вывод должны быть оформлены как самостоятельные процедуры, которые не используют глобальных переменных
Задание 2
Граф задан списком дуг, который в Паскале представлен следующими типами данных
TYPE ARC = RECORD {Структура, описывающая дугу
S: INTEGER {Номер вершины, из которой выходит дуга
D: INTEGER {Номер вершины, куда входит дуга
END
TYPE GRAPH = ARRAY [1..MAXARC] OF ARC
Разработать подпрограмму распечатки матрицы смежности этого графа. Подпрограмма должна иметь заголовок
PROCEDURE EXPO(VAR G:GRAPH; {Список дуг
NARC:INTEGER) {Число дуг в графе}