Сортировка: (пузырёк)

For i:= 1 to k do for j:= 1 to k -1 do
   if d[i] > d[i+1] then begin
     temp:=d[i];
     d[i]:=d[i+1];
     d[i+1]:=temp;
  end;

d[1..xx] - сортируемый массив
temp - переменная типа d[i]
i j - integer
k - кол-во записей