Нахождение нулевого элемента итерационным методом

[Namyola]

День добрый)

Вот есть,сама сортировка итерационным методом.А как найти нулевой элемент этим методом??help pleasee.

Program sort_iter(Input,output);
Const n = 10;

m:array [1..n] of integer=
(6,9,8,7,0,5,4,3,2,1);
Var
i,p:integer;
c: Boolean;
Begin
Repeat c := FALSE;
For i := 1 to n - 1 do

if m[i] > m[i + 1] then
Begin
p := m[i]; m[i] := m[i + 1];
m[i + 1] := p;
c := TRUE
end;

For i := 1 to n do
Write(m[i],' '); writeln;
until not c;
End.

[GetMax]

Как то так

Begin
  k:=n;
  p:=0;
Repeat
   c := FALSE;
  For i := 1 to k do
  if m[i] = 0 then
  Begin
    Writeln('Nulevoy element imeet nomer ',i);
    inc(p);
    c:=TRUE
   end;
   dec(k,n)
until not c;
Writeln;
If p = 0 then Writeln('Not found');
 For i := 1 to n do
   Write(m[i],' '); writeln;
Readln
End.

[Namyola]

ok,спасибб)