Pascal/Turbo Pascal - Ayuda con problema de pascal

Begin

          esta:=0

          ind:=0

          while ind<n and esta=0 do

          begin

                    if x= tabla[ind] then

                    begin

                               esta=1

                    end;

                    ind=ind+1

           end;

           if esta=1 then

           begin

                     write('esta en la pocición');

           end

           else

           begin

                     write('no esta');

           end;

end.

{Con la información que me das podría ser esto}

const

    n = 9;

   tabla : array[1..n] of integer = (

    1,2,3,4,5,6,7,8,9);

 var

   x, esta, ind : integer;

Begin

esta:=0

ind:=0

while ind<n and esta=0 do

begin

if x= tabla[ind] then

begin

esta=1

end;

ind=ind+1

end;

if esta=1 then

begin

write('esta en la pocición');

end

else

begin

write('no esta');

end;

end.

{Te falta el dato de x que es el que compara}