program pro1;
const n = 100;
type
  girl = record
    id : byte;
    pts : integer;
  end;
var
  a : array[1..n] of girl;
  i, j : byte;
  m : girl;
begin
  writeln('Участницы:');
  randomize;
  for i := 1 to n do
  begin
    a[i].id := i;
    a[i].pts := 1000 + random(1000);
    writeln((a[i].id):4, a[i].pts:6)
  end;
  for i := 1 to n do
    for j := n downto i do
      if a[i].pts >= a[j].pts then
      begin
        m := a[i];
        a[i] := a[j];
        a[j] := m
      end;
  writeln('финалистки:');
  for i := 1 to 10 do
    writeln((a[i].id):4, a[i].pts:6)
end.

program pro1;
const n = 100;
type
  girl = record
    id : byte;
    pts : integer;
  end;
  mas=array[1..n] of girl;
var
  a : mas;
  i : byte;

Procedure Order(G_in:mas; var G_out:mas);
var
 G:mas;
 m:girl;
 q,p:byte;
begin
  G:=G_in;
  for q := 1 to n-1 do
    for p := n downto q do
      if G[q].pts < G[p].pts then
      begin
        m := G[q];
        G[q] := G[p];
        G[p] := m
      end;
  G_out:=G;
end;

begin
  writeln('Участницы:');
  randomize;
  for i := 1 to n do
  begin
    a[i].id := i;
    a[i].pts := 1000 + random(1000);
    writeln((a[i].id):4, a[i].pts:6)
  end;
  Order(a,a);
  writeln('финалистки:');
  for i := 1 to 10 do
    writeln((a[i].id):4, a[i].pts:6)
end.