Сортировка пузырьком. Народ помогите понять что делать INC(d)

[Алексей_xXx]

я ввожу число x0=5 выводит 3 раза 25

[Алексей_xXx]

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;
begin




for i:=1 to 3 do

begin
x0:=StrToFloat(Edit2.Text);
x1 := x0*5;
Memo3.lines.add(floattostr(X1));
x0 := x1;
end;

[Sazary]

uses crt;
var
i,x0,x1 : integer;

begin
clrscr;
readln(x0);
for i:=1 to 3 do
 begin
 x1 := x0 * 5;
 writeln(x1);
 x0 := x1;
 end;

readln;
end.

5
25
125
625

Уж не знаю, как вы вводите.

upd

x0:=StrToFloat(Edit2.Text);

из цикла вынесите.

[Алексей_xXx]

ага ща работает спасибо!!!!!!!!!!!!!!!!!!!!!!!!!