Помогите сделать) Удалить первый элемент массива кратный 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.