Acho que entrei em loop, nessa questão de pascal

[rugier732]

Program Pzim ;
Var
 valor: real;
 parcelas, n: integer;

Function parcelaN (valor: real; parcelas, n: integer): real;
 var
  parcela1, parcela2: real;
  cont: integer;
 begin
  cont:=1;
  parcela1:=valor*0.2;
  parcela2:=parcela1;
  if n=1 then parcelaN:=parcela1
  else if cont=n then parcelaN:=parcela2
       else if n>1 then begin
                         parcela2:=parcela2 + parcela2 * 0.07;
                         cont:=cont + 1;
                         parcelaN(valor, parcelas, n);
                        end;
 end;
Begin
 valor:=20;
 parcelas:=20;
 n:=5;
 writeln(parcelaN(valor, parcelas, n)); 
 readln;                     ;
End.

a pergunta é essa:

 

"O Banco do Povo está realizando uma grande promoção em seus financiamentos. Ele financia qualquer valor em até 240 prestações. O valor da primeira prestação corresponde a 20% do valor do empréstimo. Os valores das demais prestações correspondem ao valor da parcela anterior acrescido de uma taxa de juros de 7%. Com base nestas informações, escreva um subprograma recursivo que receba como entrada o valor do empréstimo, o número de parcelas e um número inteiro N entre 1 e 240 e calcule qual será o valor da parcela N do empréstimo."

 

poderiam me ajudar?