Вставить число 128 перед четвертым элементом массива

Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of integer ;
 
var
a:mat; // переменная массива
i,n:integer; // переменная I вводится как индекс массива
 
//----------------------------------------------------------------------------------------
procedure Swap(var x,y:integer); // процедура обмена двух переменных значениями
var t:integer;  // дополнительная переменная
    begin
    t:=x; x:=y; y:=t; // меняем значения X и Y местами
    end;
//----------------------------------------------------------------------------------------
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 
 For i:=1 to n do
    begin
    Write('a[',i,'] = ');
    readln(a[i]); // ввод i- го элемента производится с клавиатуры
    end;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
 Write('Массив: ');
 For i :=1 to n do
    Write (a[i],' '); // вывод массива осуществляется в строку, после каждого элемента печатается пробел
 
//------------------------------------------------------------------------------
swap(a[2],a[7]); // меняем эл-ты массива с помощью процедуры
writeln;
//------------------------------------------------------------------------------ // вывод нового массива 'A'
 Write('Новый массив: ');
 For i :=1 to n do
    Write (a[i],' '); // вывод массива осуществляется в строку, после каждого элемента печатается пробел
    
 readkey; // читает символ из буфера клавиатуры.
 
end.