Дан одномерный массив целых чисел (1 2 3 4 5 6 7) 1. После каждого четного числа вставляет в массив 0 — Pascal(Паскаль)

CONST
  A: ARRAY [1..7] OF INTEGER = (1, 2, 3, 4, 5, 6, 7);
VAR
  n, i, j: INTEGER;
BEGIN    
  
  FOR i := 1 TO n
  DO
    WRITE(A[i], ' ');
  WRITELN;
  
  n := 7;
  i := 0;
  WHILE i <= n
  DO
    BEGIN
    i := i + 1;
      IF A[i] MOD 2 = 0
      THEN
        BEGIN
          n := n + 1;
          FOR j := n DOWNTO i + 2
          DO
            A[j] := A[j - 1];
          A[i + 1] := 0;
          i := i + 1      
        END
    END;
 
  
  FOR i := 1 TO n
  DO
    WRITE(A[i], ' ')
END.