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

[Алексей_xXx]

rocedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
d,k,i,temp,bound:integer;
x:array[1..n] of integer;
begin
randomize;
memo1.Clear;
memo2.Clear;

for i:=1 to n do
x[i]:=random(100);
for k:=1 to n do
memo1.Lines.Add(IntToStr(x[k]));
bound:=n;
d:=0;
while bound>1 do
begin
{ShowMessage('qwa');}
for i:=1 to bound-1 do
if x[i]>x[i+1] then
begin
temp:=x[i];
x[i]:=x[i+1];
x[i+1]:=temp;
inc(d);
end;
bound:=bound-1;

end;

edit1.Text:=IntToStr(n*n); //оценка сложности
edit2.Text:=IntToStr(d);
for k:=1 to n do
memo2.Lines.Add(IntToStr(x[k]));

end; {end of procedure}

[Sazary]

Сообщение от Алексей_xXx

Народ помогите понять что делать INC(d)

Это инкремент. Увеличивает аргумент на 1.

[Алексей_xXx]

тогда получаеться что выводит прога в edit2 1?
но она выводит не 1

[Sazary]

Сообщение от Алексей_xXx

тогда получаеться что выводит прога в edit2 1?
но она выводит не 1

У вас инструкция inc(d) находится в цикле. Вот d и увеличивается столько раз, сколько было итераций.
Эта запись аналогична:

d := d + 1;

[Алексей_xXx]

итераций, означает, сколько раз цикл повторялся?

[Sazary]

Сообщение от Алексей_xXx

итераций, означает, сколько раз цикл повторялся?

Да.
http://ru.wikipedia.org/wiki/Итерация

[Алексей_xXx]

понял. Спасибо. Можно ещё 1 вопрос. А как можно реализовать такое : я ввожу с клавиатуры число X0, нажимаю на кнопку, и программа выдает последовательность чисел, допустим; X1=X0*5
X2=X1*5
X3=X2*5

[Sazary]

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

[Алексей_xXx]

дак X2 тогда не выведеться

[Sazary]

дак X2 тогда не выведеться

А вы не смотрите на названия переменных.
На первой итерации x1 - это x1. На второй - x2, на третей - x3.