Решить . дан произвольный массив , одномерный , удалить из массива первый нечётный элемент, паскаль

For i:=1 to n do 
if mas[ i] mod 2 <>0 then mas[ i]:= 0;
(я не уверена что правильно)