Pascal. Графы. 2 задания

Задание 1. Для заданного графа (неориентированный) : Для каждой вершины подсчитать её степень.

Задание 2. Для ориентированного графа: найти степень полузахода данной вершины.

Код должен быть максимально простым, только по делу. Выводить строго необходимую информацию, если есть вопросы, что должно быть, чего не должно быть пишите в ЛС или ниже. Но вообще все должно быть максимально просто. Плюс есть просьба - комментируйте код. А так же после получения программ я отпишусь Вам с вопросами по работе программ. Например, "Данная процедура нужна для того-то и того-то, сначала происходит вот это, потом выполняется это. Правильно?" Примерно так. Так как программы буду писать не сама, то хочу разобраться досконально что, откуда, зачем и почему.