Нужна помощь...

[PAWLO1993]

ДАНО РЕКУРСИВНУЮ ФУНКЦИЮ:

function Max(x,y:integer):integer;
begin
if x<y then Max:=y else Max:=x
end;
function S(n,k:integer):integer;
var i,l:integer;
min:integer;
begin
if (k=1) or (n<=1) then S:=n
else
begin
min:=n;
for i:=1 to n do
begin
l:=Max(S(i-1,k-1),S(n-i,k))+1;
if l<min then min:=l
end;
S:=min
end;
end;

Мне нужно реализувать алгоритм без использования рекурсии.

[PAWLO1993]

мне ктото поможыт???