Delphi. delphi программирование сессия

Question

Help.. В общем нужно указать что именно является сортировкой. Начало и конец. 
 
procedure TForm1.Button_sortClick(Sender: TObject); 
Var i,p:integer; 
b:extended ; 
s:string ; 
begin 
repeat 
p:=0; 
for i:=1 to n-1 do 
begin 
if x > x[i+1] then 
begin 
b:=x; 
x:=x[i+1]; 
x[i+1]:=b; 
p:=1; 
end; 
end; 
until p=0; 
with StringGrid1 do 
begin 
for i:=1 to n do 
cells[1,i]:=FloatToStrF(x, ffFixed,6,2); 
end; 
s:=' '; 
for i:=1 to n do 
s:=s + FloatToStrF(x, ffFixed,6,2) + ' '; 
Memo1.lines.Add(s); 
end;

Анна Фирюлина · Accepted Answer

по этому куску мало что понятно даже переменная n неизвестно что за переменная

Intresni Niobicni · Answer

for i:=1 to n-1 do 
begin 
if x > x[i+1] then 
begin 
b:=x; 
x:=x[i+1]; 
x[i+1]:=b; 
p:=1; 
end; 
вот сортировка

Юля Izuminka · Answer

1. Пожалуйста, укажите ВЕСЬ код (если он у вас есть :). 
2. Вероятнее всего, сортировка - на этом участке: 
if x > x[i+1] then 
begin 
b:=x; 
x:=x[i+1]; 
x[i+1]:=b; 
p:=1; 
end;