program zvejai;
type
 zodis = string[10];
 zvejys = record
  vard: zodis;
  kartai: integer;
  karosai: integer;
  karpiai: integer;
  kuojos: integer;
 end;
 zvj = array [1..100] of zvejys;
var n:integer;
    Z:zvj;
{----------------------------}
procedure Skaitymas(var n:integer; var Z:zvj);
 var fd:text;
     i, j, x, d, e, f:integer;
 begin
  Assign(fd,'C:\PAMOKOS\Pascal programos\zvejai.txt');
  Reset(fd);
  ReadLn(fd,n);
  for i:= 1 to n do begin
   ReadLn(fd,Z[i].vard.kartai);
   x:= Z[i].kartai;
    For j:= 1 to x do begin
     ReadLn(fd,d,e,f);
     Z[i].karosai:= Z[i].karosai + d;
     Z[i].karpiai:= Z[i].karpiai + e;
     Z[i].kuojos:= Z[i].kuojos + f;
     end;
    end;
  Close(fd);
   end;
{--------------------------}
procedure Irasymas (var n:integer; Z:zvj);
 var fr:text;
     i:integer;
 begin
   Assign(fr,'C:\PAMOKOS\Pascal programos\gerizvejai.txt');
   Rewrite(fr);
   WriteLn(fr,'Þvejys    | Karosai | Karpiai | Kuojos |');
   WriteLn(fr,'----------------------------------------');
   For i:= 1 to n do
    WriteLn(fr,' |   ',Z[i].karosai,'   |   ',Z[i].karpiai,'   |   ',Z[i].kuojos,'   |');
   Close(fr);
   end;
begin
  Skaitymas(n,Z);
  Irasymas(n,Z);
  WriteLn('Hi!');
  Readln;
end.