Delphi заготовки

// Сортировка методом bubbles (пузырьков)
// Динамический массив типа Extended будет осортирован метадом пузырьков
 procedure MaxArrayElementBubbleMethod(Var ar:array of Extended );
 var
 y,x:integer;
 TempValue:Extended; //временная переменная
 MaxElementValue:Extended; // Максимальный элемент массива
 MaxElementIndex:Integer; // Индекс максимального элемента массива
begin
 for y:=0 to length(ar)-1 do begin
 MaxElementValue:=ar[y];
 MaxElementIndex:=y;
 for x:=y+1 to length(ar)-1 do begin
 if ar[x]>MaxElementValue then
 begin
 MaxElementValue:=ar[x];
 MaxElementIndex:=x;
 end;
 end;
 if y<>MaxElementIndex then begin
 TempValue:=ar[MaxElementIndex];
 ar[MaxElementIndex]:=ar[y];
 ar[y]:=TempValue;
 end;
 end;

end;




// Динамический массив типа Extended (вещественных чисел) задается из 
// заранее не оговоренного числа Tedit - ов которые находятся на форме Form1 
 
procedure TForm1.Button2Click(Sender: TObject);
var x:integer;
 ar:array of Extended;
 arCount:integer;
begin
 arCount:=0;
 for X:=0 to form1.ComponentCount-1 do
 if form1.Components[x].ClassType=Tedit then begin
 arCount:=arCount+1;
 Setlength(ar,arCount);
 if not tryStrToFloat(Tedit(form1.Components[x]).Text,ar[arCount-1]) then exit;
 end;

 MaxArrayElementBubbleMethod(ar);
 for X:=form1.ComponentCount-1 downto 0 do
 if form1.Components[x].ClassType=Tedit then begin
 Tedit(form1.Components[x]).Text:=floattostr(ar[arCount-1]);
 arCount:=arCount-1;
 end;

end;