Zinsberechnung als Konsolenanwendung?!

[8472]

program P_Sparguthaben;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

function zinsite (var p, k, n : integer):real;

begin
k:= 0 ;
For n := 0 to n do k :=

writeln;
zinsen:= p * k * n / 100;
writeln;
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);


writeln;
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):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.

================================================== ===========================================

Ich weiß, es sind noch viele Fehler drin, aber ich habs schon mal probiert. Bin auch noch nicht am Ende, aber ich werd heute noch weiter Programmieren. Danke für Eure nette Begrüßung