Написать программу в Pascal с процедурами и функциями
 

Даны массивы А[1:15,1:5] и В[1:25]. Из разности первого и последнего элемента строк матрицы А сформировать вектор С. Если в векторе С отрицательный элемент находится в последней ячейке, то элементы этого вектора упорядочить по возрастанию, иначе в векторе В расположить все отрицательные элементы, а потом все положительные элементы. В п/п (подпрограмме) формирования вектора С использовать п/п нахождения разности двух чисел.