сортировка записи, пузырьковый метод не помог Опции

[LOVE133]

дана запись, одним из полей которой является поле , содержащее общую оценку соревнований( тип real). Вывести на экран спортсменов, в порядке набранных баллов. Чем выше балл, тем выше место. Сортировала пузырьком, не получилось. Хотелось бы получить массив записей, уже посортированный.

вот процедура

procedure sort(swimers:tarr;z:byte; var swimers1:tarr);
var i,j:integer;
t:swimer;
begin
 swimers1:=swimers;
 for i:=1 to z do
  for j:=1 downto i+1 do
   if swimers1[pred(j)].obwbal>swimers1[j].obwbal
    then begin
     t:=swimers1[pred(j)];
      swimers1[pred(j)]:=swimers1[j];
      swimers1[j]:=t;
      end;
      end;

здесь obwbal- набранные балы, по ним и надо отсортировать запись. swimer- моя запись.

Сообщение отредактировано: volvo - 3.01.2006 15:38

[volvo]

Что называется, понадеялся на то, что САМ алгоритм "пузырька" был реализован нормально, или хотя-бы скопирован вот отсюда: Методы сортировок.

Конечно, внутренний цикл не будет выполняться... Вот так я бы делал:

    For i := 1 To Z Do
      For j := Z DownTo i+1 Do Begin
        { ... }
      End;