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

[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

[Lapp]

volvo, извини, я что-то не врубаюсь. Подробно не смотрел, но цикл по j наводит на размышления:
for j:=1 downto i+1 do
- мне кажется, что-то тут не так.. сейчас нет времени разбираться.
Извини, если невпопад.