[Infinity]

эм...как то ваще не коректно поставлен вопрос но вот короче такую лажу попробуй может те имено это надо...
procedure SortBubble(var a: Tdata);
var i, j: Integer;
tmp : integer;

begin

for i := 2to N do begin
for j := N downto i do
if a[j-1] > a[j] then begin //сравнение элэметов
tmp := a[j]; // jбмен элэментов местами
a[j] := a[j-1];
a[a-1] =: tmp
end
end;
end;




вот короче нечто того.....я просто непойму что имено надо тебе