[pretty020201]

вот на дельфи, выходит ошибка

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
r:array[1..40] of real;
    n,j:integer;
I,k,R,D,U,p,m:real;
begin
D:= StrToFloat(Edit1.Text);
p:= StrToFloat(Edit2.Text);
n:= StrToInt(Edit3.Text);
k:=p/100;
U:=(D*k*(1+k)^n)/(r(1+k)^(n-1)) ;
Memo1.Lines.Add('Ежегодная выплата составляет: '+FloatToStr(U));
for j := 1 to n do
begin
I:=D*k;
Memo1.Lines.Add('Величина процентного займа в год:'+FloatToStr(I));
end;
R:=U-I;
Memo1.Lines.Add('Bыплaтa основного долга в год: '+FloatToStr(R));
D:=D -R;
Memo1.Lines.Add('Остаток основного долга в год: '+FloatToStr(D));
end;
end.