Проверьте задачу Опции

[Янычар]

Вычислить приближенное значение суммы, нужное приближение считать полученным, есливычесленная сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше данного положительного числа Е.
4/0!+9/1!+16/2!............
я написал программу, но она ни хрена не работает, пишет type mismatch, короче вот сама прога, посмотрите пожалуйста, скажите где ошибка и как сделать правильно:

Program summer;
var x,k,l,m,p,a,y:Integer;
const E=0.001;
function Factor(n:integer):integer;
begin
for k:=n downto 1 do
factor:=k*n;
end;
begin
a:=13;
k:=1;
x:=4;
n:=3;
p:=sqr(x);
while abs(y)>=E do
begin
m:=p/factor(n);
x:=x+1;
n:=n+1;
y:=13+m;
end;
write(y);
end.