Напишите программу,пожалуйста После первого четного элемента вставить 0. Пример: из массива A[5]: 1 6 8 3 4 должен получиться массив A[6]: 1 6 0 8 3 4.

const     n = 10; var   a : array [1..n] of integer;  r : boolean;   i,j : integer; begin  //Формирование массива пропущено    r := true;      While r do    begin     if a[i] mod 2 =0 then      begin       for j := n-1 downto i + 2 do        a[j] := a[j-1];       a[i+1] := 0;       r := false;      end;     i := i +1;    end;  for i := 1 to n do  writeln (a[i]);   end.Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)