Сортировка массива записей

[Юляшко]

16 Отсортировать массив записей, содержащих информацию турнире по футболу: название команды, количество побед, поражений и ничьих, по убыванию очков.
есть нароботки..че дальше делать?

PHP код:

const n=20;
type rec=record
      name:string;
      victory:integer;
     end;
var a:array[1..n] of rec;
......
procedure SortTab;
var i imin,j,k:integer;
    tmp:rec;
begin
for i:=1 to n-1 do
 begin
  imin:=i;
 for j:=i+1 to n do
  if a[j].victory<a[i].victory then
   imin:=j;
 if imin<>i then
  begin
   tmp:=a[i];
   a[i]:=a[imin];
   a[imin]:=x;
  end;
 end;
end; 


[Grag]

Ну, процедуру ты нашла, уже хорошо! Теперь пиши программу с использованием этой процедуры...

[Юляшко]

как это сделать?

[Юляшко]

напишите плиз полность программу! вы же умные ребята

[Hacker19_90]

А в чём проблема? Не можете вызвать процедуру?
Ну а в общем по коду
1) Структура. Я бы ёё дополнил, чтобы она хранила кол-во побед, проигрышей, ничьих, и очков. Как-то так:

type rec=record 
      name:string;
      kol_pob: integer;
      Kol_proig: integer;
      Kol_nich: integer; 
      balli: integer; 
     end;

2) Процедура ввода(не знаю есть у вас или нет)

procedure vvod;{Лучше с параметрами но можно и без}
var
    i: integer;
begin
    for i := 1 to 16 do
    begin
         Writeln ('Введите название команды:');
         Readln (a[i].name);
         Writeln ('Введите количество побед команды:');
         Readln (a[i].kol_pob);
         Writeln ('Введите количество проигрышей команды:');
         Readln (a[i].kol_proig);
         Writeln ('Введите количество ничьих команды:');
         Readln (a[i].kol_nich);
         a[i].balli := ((2*a[i].kol_pob) + a[i].kol_nich);
    end;

Ну сортировка у вас есть, теперь вывод!

procedure vivod;
var
    i: integer;
begin
    Writeln ('Название Победы Ничьи Проигрыши Очки');
    for i := 1 to 16 do
        Writeln (a[i].name, ' ', a[i].kol_pob, ' ', a[i].kol_nich, ' ', a[i].kol_proig, ' ', a[i]. balli);
end;

теперь сама программа

begin
    vvod;
    sortTab;
    vivod;
    ReadKey;
end.

[Юляшко]

у меня сортировка тока для грофы ПОБЕДА....как остольное вписать?
напиши пожалуйста целиком эту программу