Помогите сделать) Удалить первый элемент массива кратный 3.

const      n = 10;  var    a : array [1..n] of integer;   i,m : integer;      begin   for i := 1 to n do //При формировании забил    a[i] := i;               //просто индексы    m := 0;    i := 1;  while (m = 0)  and (i<=n) do      begin      if a[i] mod 3 = 0 then        begin         a[i] := 0;         m := 1;       end ;      i := i +1;      end;    for i := 1 to n do    writeln (a[i]);    end.