newkami

Помогите, пожалуйста, сделать программу:

В квадратной матрице nxn (n принадлежит промежутку от 5 до 15) необходимо:
1. ввести размерность массива через клавиатуру с контролем вводимых значений.
2. Заполнить массив случайными числами от -100 да +100 и вывести полученную матрицу на экран.
3 Поменять местами, указанные области в массиве и вывести преобразованную матрицу на экран.
4. Пройтись по указанной траектории, и вывести полученные результаты в виде матрицы строки.
5.Полученную матрицу строку сортировать по возрастанию и убыванию.
6.В матрице, кроме выделенных областей, найти максимальный и минимальный элементы.

Вот мои наработки:

1. program kyrs;
2. uses crt;
3. type mas=array[1..15,1..15] of integer;
4. var i,j,n:integer;
5. A:mas;
   
6. procedure vvod;
7. begin
8. write('vvedite razmernost massiva ot 5 do 15');
9. write('n=');
10. readln(n);
11. if (5<=n)and(n<=15) then
12. begin
13. for i:=1 to n do
14. for j:=1 to n do
15. A[i,j]:=-100+random(201);
16. end
17. else
18. write('n ne sootvetstvuet promeutku [5,15]');
19. end;
20. procedure vivod;
21. begin
22. for i:=1 to n do
23. begin
24. for j:=1 to n do
25. write(A[i,j]:5);
26. writeln;
27. end;
28. end;
    
29. begin
30. clrscr;
31. randomize;
32. textbackground(9);
33. textcolor(13);
    
34. vvod;
35. vivod;
36. readln;
37. end.

Первые два пункта сделал, но как делать дальше совсем не представляю.