Переполнение стека, Мини-рекурсия Опции

[Zundell]

var
n,s:word;

Function koren(n:word):word;
var
s:word;
begin
if n<=0 then
koren:=n
else begin
s:=0;
repeat
s:=s+ n mod 10;
n:=n div 10;
until
n=0;
koren:=koren(s);
end
end;

begin
write('Vvedite n-');
readln(n);
koren(n);
write('vot-',s);
readln;
end.

Посмотрите пожалуйста..из-за чего выдает ошибку?спасибо заранее