Mình mới làm được cách này, bạn tham khảo

program maxseqk;

var
  n, k1, i, maxS, maxI, maxK : integer;
  { Goi s[i] la tong tu a[1 -> i]. Goi la "mảng tổng tiền tố" }
  a, s : array [0 .. 1000000] of longint;

procedure enter;
  var
    i : longint;
  begin
    read(n, k1);
    for i:=1 to n do read(a[i]);
  end;

procedure prefixSum;
  var
    i : integer;
  begin
    s[0] := 0;
    s[1] := a[1];
    for i:=2 to n do
      s[i] := s[i-1] + a[i];
  end;

procedure solve(k : longint);
  var
    i, mi, mk : integer;
    ms : longint;
  begin
    { Tính mảng tổng tiền tố }
    prefixSum;
    { Ban đầu maxS = tổng từ a[1 -> k] }
    i := 1;
    ms := s[k];
    { Tính max của các phần tử độ dài K }
    for i:=2 to n-k do
      if ms < (s[i+k] - s[i-1]) then
        begin
          { Nếu mS bé hơn tổng thì đặt i thành vị trí bắt đầu tổng lớn hơn }
          ms := s[i+k] - s[i-1];
          mi := i;
          mk := k;
        end;
    if ms > maxS then 
      begin
        maxS := ms;
        maxI := mi;
        maxK := mk;
      end
  end;

begin
  { Nhap n, k, a }
  enter;
  { Giai bai toan }
  for i:=1 to k1 do
    solve(i);
  for i:=maxI to maxI+maxK do
    write(a[i], ' ');
  writeln;
end.