冒泡排序的问题

带刀刺客

var
  l,j,k,n:integer;  
begin
  【for l:=1 to i-1 do       这到
begin
  K:=i-l;                 
  for j:=1 to k do】 这的意思是什么
begin
  if(num[j]< num[j+1]) then
begin
  n:=num[j];
  num[j]:=num[j+1];
  num[j+1]:=n;
   end;
end;
   end;
   label1.Caption:='';
   【for l:=i-1 downto 1 do】这段是什么意思
   label1.Caption:=label1.Caption+inttostr(num[l])+' ';
   end;
end.


求教导

我勒个去，小二

你再多看几遍，视频里讲的很清楚了..