Turbo Pascal.Массивы

[Cherry Emberson]

Добрый вечер,помогите пожалуйста написать две программы на массивы.
1.Матрицу А(6, 8) заполнить целыми случайными числами в диапазоне от 7 до 107. Найти максимальный и минимальный элементы в каждом столбце и поменять их местами. Вынести А до и после изменения.
2. Массивы Q(10) и Т(10) заполнить целыми случайными числами из диапазона от 0 до 100. Определить и вывести те значения I, для которых Q(I)>T(I). Определить количество N таких пар. Вывести также Q, Т, N.