Написать рекурсивную функцию для нахождения n-го члена прогрессии

uses crt;
function An(a,d,n:integer):integer;
begin
if n=1 then An:=a
else An:=An(a,d,n-1)+d;
end;
function Sn(a,d,n:integer):integer;
begin
if n=1 then Sn:=a
else Sn:=Sn(a+d,d,n-1)+a;
end;
var a1,d,n:integer;
begin
write('A1=');readln(a1);
write('Разность=');readln(d);
write('N=');readln(n);
writeln('N-ый член=',An(a1,d,n));
write('Сумма первых N членов=',Sn(a1,d,n));
end.

function An(a,d,n:integer):integer;
begin
if n=1 then An:=a //если 1 член, то он равен первому
else An:=An(a,d,n-1)+d;//иначе он равен предыдушему + разность
end;
function Sn(a,d,n:integer):integer;
begin
if n=1 then Sn:=a//если 1 член, то сумма=ему
else Sn:=Sn(a+d,d,n-1)+a;//иначе сумма=предыдущей + очередной член ряда(вычисляется)
end;