Товарищи, пожалуйста, если вас не затруднит, помогите решить вот эти задания:

1. type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,
dec);
day = 1..31;
var m1, m2: mes; k:1..maxint; n:1..12;
Присвоить переменной m1 название k-го месяца после месяца m.

2. type stroka = packed array [1..80] of char;
var s:stroka;
Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно удалив первое вхождение w, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел).

3. const n = 100;
vаr х:аrrау [1..n] of rеаl;
Упорядочить массив х по неубыванию, используя следующий алгоритм сортировки: сортировка вставками. Пусть первые и элементов массива уже упорядочены по неубыванию; берется (k+1 )-й элемент и размещается среди первых k элементов так, чтобы упорядоченными оказались уже k+1 первых элементов; этот метод применяется при k от 1 до n-1.

4. Создать массив записей, содержащих сведения о сотрудниках университета. Структура записи:
фамилия и инициалы работающего, год рождения;
название кафедры;
стаж работы, должность, оклад.
Количество записей произвольное.
Вывести на экран следующие данные: средний стаж работающих на кафедре X и список профессоров пенсионного возраста с указанием стажа работы.

5. var A,B: set of char; x:char;
Переменной B присвоить множество, полученное из A добавлением элемента x.


или хотя бы что-нибудь из этого