type pracownik = record
        id, sumakwot: integer;
    end;

procedure jakastamnazwa(nazwapliku1, nazwapliku2: string);
var plik1: text;
    plik2: file of pracownik;
    i, id, kwota: integer;
    tab: array[1..N] of pracownik;
begin
    for i := 1 to N do
    begin
        {zerowanie tablicy, podobno konieczne, nie wiem czy w tym przypadku, ale jakby co dałem}
        tab[i].sumakwot := 0;
        {i przypisanie id do każdego elementu, można także zrobić podczas czytania pliku tekstowego}
        tab[i].id := i;
    end;

    assign(plik1, nazwapliku1);
    reset(plik1);
    i := 0;
    while not eof(plik1) do
    begin
        {parzyste linijki - kwota, nieparzyste - ID}
        if i mod 2 = 0 then
        begin
            readln(kwota);
            tab[id].sumakwot := tab[id].sumakwot + kwota;
        end
        else
            readln(id);
        i := i + 1; {lub inc(i)}
    end;
    close(plik1);

    assign(plik2, nazwapliku2);
    rewrite(plik2);
    for i := 1 to N do
        write(plik2, tab[i]);
    close(plik2);
end;