Zinsberechnung als Konsolenanwendung?!

[Klaus01]

Delphi-Quellcode:

program P_Sparguthaben; 

{$APPTYPE CONSOLE} 

uses 
  SysUtils; 

var 
  p, k, n, z :integer; 
  start, wert :char; 

function zinsite(var prozent, kapital, jahre : integer):real; 
var
  i:Byte;
begin 
  For i := 1 to jahre do
    kapital := kapital*(1+(p/100)); 

  result:=kapital;
end; 

function zinsrek (a,n:integer):real; 
begin 
  if n = 0 then 
    zinsrek := 1 
  else 
    if n = 1 then 
      zinsrek := a 
    else 
      zinsrek := a * zinsrek(a,n-1); 
end; 

begin 

  write ('Moechten Sie das Programm starten (j/n): ');readln(start); 
  while start <> 'n' do 
     begin 
       write('Geben Sie einen Kapitalwert ein (k):') ;readln(k); 
       write('Geben Sie die Laufzeit ein (n):') ;readln(n); 
       write('Geben Sie den Prozentwert ein (p):') ;readln(p); 

       Write(' Waehle iterative (I) oder rekursive (R) Zinsberechnung!: ');readln(rop); 

       If rop = 'I' Then 
         Begin 
           write(' Das Ergebnis der Iterativen Berechnung: 'zinsite(p,k,n):6:2); 
           writeln; 
         end 
       else 
         Begin 
           write(' Das Ergebnis der Rekursiven Berechnung: 'zinsrek(p,k):6:2); 
           writeln; 

          end; 

       write ('Das Programm erneut starten?: ');readln(start); 
     end; 
end.

Mal etwas eingerückt, verbessert ud Delphi Tags gesetzt.

Grüße
Klaus