Осталось 20 мин буду вечно благодарен любому кто наапишет пргу

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!type  st=record    ball:real;    nam:string    end;  begin  var n:=ReadlnInteger;  var res:=new st[n];  var buf:st;  for var i:=0 to n-1 do begin    Readln(buf.nam);    buf.ball:=0.0;    res[i]:=buf    end;  loop 6 do begin // по условию тут надо написать 30, 6 - это для примера    var p:=ReadlnString.ToWords;    var id:=res.FindIndex(t->t.nam=p[1]);    if id>-1 then res[id].ball+=p[0].ToReal;    end;  var imax:=res.Select(t->t.ball).ToArray.IndexMax;  res[imax].nam.Printlnend.Пример3ЛеонидМарияКонстантин18.7 Мария3.01 Леонид9.12 Леонид43.4 Мария5.3 Константин0.52 ЛеонидМария