for i:=9 downto 0 do
for j:=0 to i do
begin
times := times + 1;
if LArray[j] > LArray[i] then
begin
temp := LArray[i];
LArray[i] := LArray[j];
LArray[j] := temp;
end;
end;
for j:=0 to i do
begin
times := times + 1;
if LArray[j] > LArray[i] then
begin
temp := LArray[i];
LArray[i] := LArray[j];
LArray[j] := temp;
end;
end;