Поменять отрезки местами без использования дополнительного массива - Pascal ABC

Формулировка задачи:

Есть массив состоящий из n элементов.Массив разделили на 2 неравных отрезка(не сказано какой из них больше).Количество элементов в первом отрезке - m. Как поменять отрезки местами(второй отрезок в начало,а первый на место второго) без использования доп массива? Можно пожалуйста в этой программе элементы массива вводить самому,(то есть без рандомного выбора).

Решение задачи: «Поменять отрезки местами без использования дополнительного массива»

Листинг программы

var
a:array[1..100]of integer;
i,j,n,m:integer;
begin
writeln('vvedite razmer massiva');
readln(n);
writeln('vvedite elementy massiva');
for i:=1 to n do
read(a[i]);
writeln;
writeln('massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('vvedite chislo m<n');
readln(m);
for i:=n+1 to n+m do
a[i]:=a[i-n];
for i:=1 to n do
a[i]:=a[i+m];
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

Объяснение кода листинга программы

Пользователю предлагается ввести размер массива (n).
Затем пользователю предлагается ввести элементы массива (до 100 элементов).
Выводится текущий массив.
Пользователю предлагается ввести число m, не превышающее размер массива n.
Элементы массива сдвигаются вправо на m позиций.
Затем элементы массива сдвигаются влево на m позиций.
Выводится измененный массив.