Строка_чсило

const
  max = 100;
 
var
  F1, F2: Text;
  c: char;
  i, j, st: integer;
  score: array[1..max] of integer;
  group: array[1..max] of string;
 
 
 
 
procedure swap(var x, y: integer);  {Процедура замены 2 элементов}
var
  t: integer;
begin
  t := x;
  x := y;
  y := t;
end;
 
procedure swapc(var x, y: string);  {Аналогичная процедура для строки}
var
  t: string;
begin
  t := x;
  x := y;
  y := t;
end;
 
begin
  assign(f1, 'input.txt');
  assign(f2, 'output.txt');
  reset(f1);
  rewrite(f2);
  while not eof(F1) do
  begin
    inc(st);
    i := 1;
    j := 1;
    while c <> ' ' do   {Читать до пробела по знаку и добавлять в строковый массив}
    begin
      read(f1, c);
      group[i] := group[i] + c;
      inc(i);
    end;
    while not eoln(F1)  do  { Читать само число до конца строки}
    begin  
      read(f1, score[j]);  
      inc(j);
    end;
  end;
For j := 1 to max - 1 do   {Сортировка по массиву score "пузырьковым" методом}
    for i := 1 to max - j do
      if score[i] > score[i + 1] then begin
        swap(score[i], score[i + 1]);
        swapc(group[i], group[i + 1]);
      end;
  
for i := st downto 1 do writeln(group[i], ' ', score[i]);  {вывод}
  
  close(f1); close(f2);
end.