таблица с записями

[darika]

а если я ни чем не умею, как хоть надо?

[Chudo4258]

Сообщение от darika

а если я ни чем не умею, как хоть надо?

Вот гляньте сколько их всяхих [ССЫЛКА], выбирайте на свой вкус.

использую свои переменные, если они уже есть в программе, то поменяй
сортировка Пузырьком

repeat
  f:=false; {Пока неупорядоченных пар не было}
  for i:=1 to N-1 do  {Просматриваем все пары рядом стоящих элементов}
  // в твоем случае N-1 = 12-1 = 11
  begin
    if x[i].tov>x[i+1].tov then {Если пара стоит в неправильном порядке}
    begin
      f:=true; {Есть неупорядоченная пара} 
      //Меняем местами элементы массива
      a:=x[i].tov; x[i].tov:=x[i+1].tov; x[i+1].tov:=a; 
      b:=x[i].proi; x[i].proi:=x[i+1].proi; x[i+1].proi:=b; 
        //.............
       //и т.д. переприсваиваешь по всем полям
    end;
  end;
until not f;

этот метод сортировки самый легкий в понимании, но самый медленный в работе. Можешь выбрать и другой метод сортировки, но у тебя массив из 12 элементов, дак я думаю и такой метод нормально будет.