После первого четного элемента вставить 0

uses crt;
const n=10;
var a:array[0..n+1] of integer;
    i,idx:integer;
begin
 clrscr;
  writeln('Ìàññèâ À:');
   for i:=1 to n do
    begin
     a[i]:=random(59)-3;
     write(a[i]:4);
    end;
 
   for i:=1 to n do
    if a[i] mod 2=0 then
     begin
      idx:=i;
      a[idx-1]:=0;
      break;
     end;
  writeln;
   writeln('Íîâûé ìàññèâ :');
    for i:=1 to n do
     write(a[i]:4);
 readkey;
end.

const
  amax=101;
var
  a: array [1..amax] of integer;
  i,j,n: integer;
  fl: boolean;
begin
  randomize;
  repeat
    write('Введите размер массива (до ',amax-1,'): ');
    readln(n);
  until n in [1..amax-1];
  writeln('Массив: ');
  for i:=1 to n do
    begin
      a[i]:=random(201)-100;
      write(a[i]:5);
    end;
  writeln;
  writeln('После преобразований: ');
  fl:=false;
  for i:=1 to n do
    if a[i] mod 2=0 then
      begin
        for j:=n downto i+1 do a[j+1]:=a[j];
        a[i+1]:=0;
        fl:=true;
        break;
      end;
  if fl then inc(n);
  for i:=1 to n do write(a[i]:5);
  writeln;
end.

const
  amax=101;
type
  arr=array [1..amax] of integer;
var
  a: arr;
  b: integer;
 
procedure CreateArray(var a: arr; var b: integer);
var
  i: integer;
begin
  repeat
    write('Введите размер массива (до ',amax-1,'): ');
    readln(b);
  until b in [1..amax-1];
  for i:=1 to b do a[i]:=random(201)-100;
end;
 
procedure OutArray(a: arr);
var
  i: integer;
begin
  for i:=1 to b do write(a[i]:5);
  writeln;
end;
 
procedure OddArray(var a: arr);
var
  i,j: integer;
  fl: boolean;
begin
  fl:=false;
  for i:=1 to b do
    if a[i] mod 2=0 then
      begin
        for j:=b downto i+1 do a[j+1]:=a[j];
        a[i+1]:=0;
        fl:=true;
        break;
      end;
  if fl then inc(b);
end;
 
begin
  randomize;
  CreateArray(a,b);
  OutArray(a);
  OddArray(a);
  OutArray(a);
end.