Олимпиадная задача по программированию. PascalABC.NET

program D_contest;
 
type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
  end;
 
var
  N, i, num: integer;
  str: string;
  stat: array of TStat;
  nick: string;
 
function found(ni_ck: string): integer;
begin
  found := -1;
  for var e := 0 to Length(stat) - 1 do
  begin
    if stat[e].nick = ni_ck then 
    begin
      found := e;
      break;
    end;
  end;
end;
 
var
  v_pts, e_pts, l_e: integer; 
  F: textfile;
  k: real;
  s: string;
 
begin
  Assign(F, 'input.txt');
  Reset(F);
  readln(F, n);
  SetLength(stat, 1);
  for i := 0 to n - 1 do
  begin
    readln(F, str);
      //get enemy_nick
    nick := Copy(str, 1, Pos(' ', str) - 1);    
    Delete(str, 1, Pos(' ', str));
    
    if (stat[0].nick <> '') then
    begin
      num := found(nick);
      if (num = -1) then //not found
      begin
        l_e := Length(stat);
        SetLength(stat, l_e + 1);
        num := l_e;
        stat[num].nick := nick;
      end;
    end
      else
    begin
      stat[0].nick := nick;
    end;
    
    inc(stat[num].battles);
    
      //get Vania_points
    v_pts := StrToInt(Copy(str, 1, Pos(' ', str)));   
    Delete(str, 1, Pos(' ', str));
    
      //get enemy_points
    e_pts := StrToInt(str);
    
    if v_pts > e_pts Then
      inc(stat[num].wins);        
  end;
  
  Close(F);
  
  //вычисляю процент побед
  for i := 0 to Length(stat) - 1 do
  begin
    stat[i].proc := stat[i].wins / stat[i].battles;  
  end;
  
  //сортировка по процентам
  for i := 0 to Length(stat) - 2 do 
  begin
    for var j := 0 to Length(stat) - i - 2 do 
    begin
      if (stat[j].proc > stat[j + 1].proc) then //(stat[j].proc = stat[j + 1].proc) and (stat[j].nick > stat[j + 1].nick)
      begin
        k := stat[j].proc;
        stat[j].proc := stat[j + 1].proc;
        stat[j + 1].proc := k;
        
        s := stat[j].nick;
        stat[j].nick := stat[j + 1].nick;
        stat[j + 1].nick := s;
      end
      else
      begin
        if stat[j].proc = stat[j + 1].proc Then
          if (stat[j].proc = stat[j + 1].proc) and (stat[j].nick > stat[j + 1].nick) Then
          begin
            k := stat[j].proc;
            stat[j].proc := stat[j + 1].proc;
            stat[j + 1].proc := k;
            
            s := stat[j].nick;
            stat[j].nick := stat[j + 1].nick;
            stat[j + 1].nick := s;
          end;
      end;
    end;
  end;
  
  writeln(Length(stat));
  for i := 0 to Length(stat) - 1 do
  begin
    write(stat[i].nick, ' ');
    writeln(stat[i].proc * 100:0:6);
  end;
end.

type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
    
    constructor (ss : array of String);
    begin
      nick := ss[0];
      stat(ss);
    end;
    
    function stat(ss : array of String) : TStat;
    begin
      battles += 1;
      if ss[1].ToInteger > ss[2].ToInteger then
        wins += 1;
      Result := Self;
    end;
    
  end;
 
begin
  var f := OpenRead('input.txt');
  var n := f.ReadLnInteger;
  var L := New List<TStat>;
  loop n do
    begin
      var ss := f.ReadlnString.ToWords;
      var z := L.FindIndex(v->v.nick = ss[0]);
      if z < 0 then
        L.Add( New TStat(ss) )
      else
        L[z] := L[z].stat(ss);
    end;
  f.Close;
  
end.

  L.Print;

  for var i := 0 to L.Count-1 do L[i] := L[i].pr;

    function pr : TStat;
    begin
      proc := wins / battles * 100;
      Result := Self;
    end;

  L.Count.Println;

  L.Select(v->$'{v.nick} {v.proc:f10}').PrintLines;

  L.OrderBy(v->v.nick).OrderBy(v->v.proc).Select(v->$'{v.nick} {v.proc:f10}').PrintLines;

type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
    
    constructor (ss : array of String);
    begin
      nick := ss[0];
      stat(ss);
    end;
    
    function stat(ss : array of String) : TStat;
    begin
      battles += 1;
      if ss[1].ToInteger > ss[2].ToInteger then
        wins += 1;
      Result := Self;
    end;
    
    function pr : TStat;
    begin
      proc := wins / battles * 100;
      Result := Self;
    end;
  end;
 
begin
  var f := OpenRead('input.txt');
  var n := f.ReadLnInteger;
  var L := New List<TStat>;
  loop n do
    begin
      var ss := f.ReadlnString.ToWords;
      var z := L.FindIndex(v->v.nick = ss[0]);
      if z < 0 then
        L.Add( New TStat(ss) )
      else
        L[z] := L[z].stat(ss);
    end;
  f.Close;
  
  for var i := 0 to L.Count-1 do L[i] := L[i].pr;
  
  L.Count.Println;
  L.OrderBy(v->v.nick).OrderBy(v->v.proc).Select(v->$'{v.nick} {v.proc:f10}').PrintLines;
end.

.OrderBy(v->v.proc).ThenBy(v->v.nick)

loop n do

for var dummy_var_name := 1 to n do

begin
  Reset(input, 'input.txt');
  ReadArrString(ReadlnInteger)
  .GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}')
  .PrintLines
end.

begin
  Reset(input, 'input.txt');
 var r :=  ReadArrString(ReadlnInteger);
   r.GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}')
  .PrintLines;
  r.Lenght.Print;
end.

begin
  Reset(input, 'input.txt');
  var r := ReadArrString(ReadlnInteger);
  
  var s := r.GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}');
  writeln(s.Count);
  s.PrintLines;
end.