Pascal. Рекурсия.

[D-Snaker]

Добрый день, товарищи!

Помогите пожалуйста разобраться - задача на рекурсию (ненавижу блин)

Вычислить 7^2 и 5^2 , используя представление квадратов чисел:
1^2 = 1, 2^2 = 1 + 3, 3^2 = 1 + 3 + 5 ну и так далее.

Я набросал в принципе начало, но потом запутался и дальше не осилил

var
  n: integer;

function stepen(x: integer): integer;
var
  i: integer;
begin
  if x = 1 then step := 1 else 
    step := step(x - 1) + 2;   
end;

begin
  writeln(stepen(2));
end.

Ну и соответственно выводит вышенаписанное 3...

Помогите пожалуйста разобраться, в чем я не прав

[eoln]

function stepen(x: integer): integer;
begin
  if x = 1 then stepen := 1 else 
    stepen := 2*x-1+stepen(x - 1);   
end;

begin
  writeln(stepen(5));
  writeln(stepen(7));
end.