Помогите с рекурсией

[Oktavius_96]

Вычислить элементы последовательности, используя рекурсию.
H0(x)=1, H1(x)=2x,
Hk+1(x)=2xHk(x)-2kHk-1(x) для k>2.

[newerow1989]

function H(k,x:integer):integer;
begin
   If k=0 then
      Result:=1 else
   If k=1 then
      Result:=2*x else
      Result:=2*x*H(k-1,x)-2*k*H(k-2,x);
end;

var k,x:integer;
begin
   Write('k = '); Readln(k);
   Write('x = '); Readln(x);
   Writeln(H(k,x));
   Readln;
end.