Stack overflow error- ошибка в паскале

Question

Stack overflow error- ошибка в паскале 
Program pr1; 
uses crt; 
var n,m:integer; 
function fac(x:integer):longint; 
begin 
if n=0 then fac:=1 else fac:=x*fac(x-1); 
end; 
begin 
clrscr; 
write('n=');readln(n); 
write('m>n=');readln(m); 
writeln('Otvet=',fac(m)/(fac(n)*fac(m-n))); 
readkey; 
end.

Марианна Бурыкина · Accepted Answer

if n=0 then... 
выполнится, если n=0. А где изменяется значение n?

Павел · Answer

Не плохо бы инициализировать переменные ))))