Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до

Дан массив, заполненный случайными целыми числами в спектре от -30000 до 30000.

Напишите подпрограмму, сдвинет элементы массива на 1 на право (дополнительный массив не использовать).

К примеру из массива: 1 2 3 4 5 6, получим 6 1 2 3 4 5.

Размер массива заранее задан константой N. Используйте заголовок:

procedure perest(var m:TMas);

Тип ТMas задан как array[1..N] of integer и может употребляться для описания характеристик подпрограмм.