прикладная математика

Вот программа:

Program L_r_5_6;
Var
i:byte;
x,p:integer;
Begin
p:=1;
for 1 to 9 do
Begin
Write('введите',i,'-e число':);
ReadLn(x);
if ((x>=-15)and(x<=0)and(xmod<=0)
then p:=p*x;
end;
if p=1 then WriteLn('Нужных чисел не было')'
else WriteLn('Произведение чисел шз {-15,0}=',p);
ReadLn
end.

Красным выдилена ошибка

Program L_r_5_6;
Var
i:byte;
x,p:integer;
Begin
p:=1;
for 1 to 9 do
Begin
Write('введите',i,'-e число':);
ReadLn(x);
if ((x>=-15)and(x<=0)and(xmod<=0)
then p:=p*x;
end;
if p=1 then WriteLn('Нужных чисел не было')'
else WriteLn('Произведение чисел шз {-15,0}=',p);
ReadLn
end.

Теперь там ошибка. Ставлю пробел и тут ошибка (x mod[color=red]<=0)

Добавлено (27.10.10, 20:00)
---------------------------------------------
admin
И тебе спасибо))))

Убрал and(xmod<=0) всё заработало))

Мы писали в конспекте, что MOD - выделить остаток от деления