задача на двумерный массив Опции

[raiman]

Задачи на итоговую работу, ломал голову ломал, посоветовали ваш форум надеюсь на помощь)

Проблема заключается в следующем, я понимаю что нужно сделать но не могу сообразить технологию исполнения.
выполнить нужно следующие задания:

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

вот что для начало вышло у меня:

uses crt;

procedure mas(raz:integer);        {процедура}
   var j,i:integer;
       a:array[1..100,1..100] of shortint;
       b:array[1..100,1..100] of byte;
     begin
       for i := 1 to raz do
       for j := 1 to raz do 
         begin
          a[i, j] := random(201) - 100;
          b[i, j] := 0;
         end;

    writeln('Сформированная матрица :');
    writeln;

    for i := 1 to raz do 
     begin
      for j := 1 to raz do
        write(a[i, j]:5);
        writeln;
      end;
   end; {конец описания процедуры}

var
  c : array [1..29] of shortint;
  min, max : shortint;
  n,z : integer;
  m : byte;
  i, j : byte;
  t : shortint;

begin
  clrscr;
  writeln('Введите размер матрицы от 5 до 15 ');
  readln(n);
  while (n<5) or (n>15) do
  begin
  writeln ('Введен неверный размер!!! введите значение от 5 до 15!!!');
  readln(n);
  end;
    writeln;
    
  randomize;
  mas(n); {процедура}
  
  
readln;

end. 

[raiman]

хотелось бы что бы мне помогли сделать хотя бы 3 пункт, хотя бы его полностью, остальное уж сам додумаю, заранее спасибо)