Вставить после каждого четного элемента число 5

Type matr = Array[1..50] of integer;
Var A,A1: matr;
n: Integer;
 
Procedure Init(Var x: matr); {процедура формирования массива}
Var i: integer;
Begin
For i:=1 to n do
x[i]:=1+Random(11);
End;
 
Procedure Print(x: matr); {процедура вывода массива на экран}
Var i: integer;
Begin
For i:=1 to n do
Write(x[i]:5); 
end;
 
Procedure Preobr(r: matr); {процедура преобразования и вывода массива на экран}
Var i,j,m,k: integer;
x: matr;
Begin
m:=n;
begin
 For i:=1 to n do
         if (r[i] mod 2) = 0 then
             begin
             m:=m+1;
              for k:=m downto (i+2) do
              x[k]:=r[k-1];
              x[i+1]:=5;
             for j:=i downto 1 do 
             x[j]:=r[j]; 
             end;
 
  end;
  for i:=1 to  m do
  Write(x[i]:5);
end;
 
Begin{основная программа}
Write('Введите количество элементов массива n не боьше 25: ');
readln(n);
Init(A);
Write('Массив А:  ');
 Print(A);
 writeln;
Write('Массив А преобразованный:  ');
Preobr(A);
end.

type
  matr = Array[1..50] of integer;
 
var
  A, A1: matr;
  n: Integer;
 
procedure Init(var x: matr);{процедура формирования массива}
var
  i: integer;
begin
  for i := 1 to n do
    x[i] := 1 + Random(11);
end;
 
procedure Print(x: matr);{процедура вывода массива на экран}
var
  i: integer;
begin
  for i := 1 to n do
    Write(x[i]:5); 
end;
 
procedure Preobr(var x: matr);{процедура преобразования и вывода массива на экран}
var
  i, j, m, k: integer;
begin
  m := n;
  i := 1;
  while i <= m do
  begin
    if x[i] mod 2 = 0 then
    begin
      m := m + 1;
      for j := m downto i + 2 do
        x[j] := x[j - 1];
      x[i + 1] := 5;
    end;
    i := i + 1;
  end;
  for i := 1 to m do
    Write(x[i]:5);
end;
 
begin{основная программа}
  Write('Введите количество элементов массива n не боьше 25: ');
  readln(n);
  Init(A);
  Write('Массив А:  ');
  Print(A);
  writeln;
  Write('Массив А преобразованный:  ');
  Preobr(A);
end.