program integriere;

uses
  sysUtils, lowlevelunit;

var
  Kanal,momentan: integer;
  Grenzen:        array of extended;
  Datei:          textFile;
  s:              ansistring;
  x,y:            extended;

begin

  if (paramcount<>3)
  or not fileExists(paramstr(1))
  or not fileExists(paramstr(2)) then begin
    writeln('Usage: '+paramstr(0)+' Lineout.csv Harmonischengrenzen.csv Kanal');
    halt(1);
  end;

  Kanal:=strToInt(paramstr(3));

  setLength(Grenzen,0);
  assignFile(Datei, paramstr(2));
  reset(Datei);
  while not eof(Datei) do begin
    readln(Datei, s);
    if erstesArgument(s)<>intToStr(Kanal) then
      continue;
    setLength(Grenzen, length(Grenzen)+1);
    Grenzen[length(Grenzen)-1]:=strToFloat(s);
  end;
  closeFile(Datei);

  y:=0;
  momentan:=0;
  assignFile(Datei, paramstr(1));
  reset(Datei);
  while not eof(Datei) do begin
    readln(Datei,s);
    x:=strToFloat(erstesArgument(s));
    if (momentan<length(Grenzen)) and (x>Grenzen[momentan]) then begin
      writeln(intToStr(momentan),' ',myFloatToStr(y));
      inc(momentan);
      y:=0;
    end;
    erstesArgument(s);
    y:=y+strToFloat(s);
  end;
  closeFile(Datei);
  writeln(intToStr(momentan),' ',myFloatToStr(y));

end.