Помогите с Цыклом

[Dzib]

тело программы напиманая мною

procedure TForm1.Button1Click(Sender: TObject);
var str,ene,x,y,a,b,k:real;
n,i:integer;
begin
    b:=0;
    n:=strtoint(edit1.Text);
    for i:=1 to n do
    begin
    x:=i;
    y:=n-i; k:=y/10;
    a:=x+(x*k);
    if a>b then begin x:=str; y:=ene; b:=a; end;
    end;
    edit1.Text:=floattostr(a);
    edit2.text:=floattostr(str);
    edit3.Text:=floattostr(ene);


end;

end.

Програма должна подщитать при каком значении х і y переменная a будет иметь максимальное значение. Но чтото не хочет

Точнее есть некое целое число N, его нужно разделить на Х и Y, так чтобы А имело максимальное значение. a=x+x*k k=y/10.
Всё время у меня Х ровно 2,05849888817598E-307 а Y ровно 1,01180226214193E300. Непойму почему так.

[Ozerich]

1.Цикл
2.имя переменных от балды названо
3.вот ответ

procedure TForm1.Button1Click(Sender: TObject);
var cur,max,maxX,maxY,y,k:real;
n,i:integer;
begin
    max:=0;
    n:=strtoint(edit1.Text);
    for i:=1 to n do
    begin
        x:=i;
        y:=n-i; 
        k:=y/10;
        cur:=x+(x*k);
        if cur>max then begin max:=x; maxy:=y; max:=cur;end;
    end;
    edit1.Text:=floattostr(a);
    edit2.text:=floattostr(MaxX);
    edit3.Text:=floattostr(MaxY);
end;
end.

[Dzib]

спосиба вроди работает) я сколько читал читал немогу заметить чем отличается втой код от моего кроме переменных)))

[A_r_r_a_y]

Сообщение от Ozerich

max:=x; maxy:=y; max:=cur;

Сообщение от Dzib

тело программы напиманая мною

x:=str; y:=ene; b:=a; end;

подставы не замечаешь?

[Dzib]

да, спосиба, тупость))))