Nếu có lỗi thì bạn nói mình nhé ^^. Do nãy hiểu sai đề nên hơi bị lâu ^^
program Hello;
uses crt;
var a,b,i,j,t:integer;
    h,ld:array[1..1000] of integer;
begin
    clrscr;
    read(a, b); 
    for i:=1 to b do
        read(h[i]);
j:=0; 
i:=0;
    while j<=b do
        begin
            i:=i+1;
            j:=j+1;
            ld[i]:=ld[i]+h[j];
            if i=a then
                i:=0;            
        end;
    for i:= 1 to a do
        Write(ld[i], ' ');
    Writeln();
    for i:= 1 to a do
    begin
        t:=0;
        for j:=1 to a do
            if ld[i]<ld[j] then
                t:=1;
        if t = 1 then 
                continue;
        Write(i, ' ');
    end;
end.

uses crt;
var f1,f2:text;
    a,b,i,j,vt:word;
    boc,h:array[1..1000] of longint;
    max:longint;
const fi='BOCVAC.INP';
      fo='BOCVAC.OUT';
begin
    clrscr;
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    repeat
        readln(f1,a,b);
    until (0<a) and (0<b) and (a<1000) and (b<1000);
    for i:=1 to b do
       repeat
           read(f1,h[i]);
       until (45<h[i]) and (h[i]<=65);
    i:=0;j:=0;
    while i<=b do
       begin
           inc(i);
           inc(j);
           boc[j]:=boc[j]+h[i];
           if j=a then j:=0;
       end;
    max:=boc[1];
    vt:=1;
    for i:=1 to a do
       begin
           write(f2,boc[i],' ');
           if boc[i]>max then
              begin
                 max:=boc[i];
                 vt:=i;
              end;
       end;
    writeln(f2);
    writeln(f2,vt);
    close(f1);close(f2);
end.