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

[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

[Romtek]

LOVE133
Когда в цикле j =1, чему будет равно pred(j) ?
К какому элементу обращается swimers1[pred(j)] ?

procedure sort(swimers:tarr;z:byte; var swimers1:tarr);
->
procedure sort(var swimers: tarr; z:byte);
так не лучше?