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

ОН ЗАЦИКЛИЛСЯ!

WTF

у меня вроде работает PascalABC.Net

И даже если подходящего элемента нет, то он выходит из while

оу. а у меня Турбо паскаль

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.