已知一列数1、4、8、10、16、19、21、25、30、43，求出相邻若干个数之和能被11整除的有多少组？分别把每一组数打印出来。

[color=0000FF]下面是我自己编的可惜结果总是错的，不知错在那请大家帮帮我，不胜感谢！[/color]

var  x,y,s,t:integer;
    const a:array[1..10] of integer
   =(1,4,8,10,16,19,21,25,30,43);
    begin
       s:=1;
       for x:=1 to 9 do
        begin
         for y:=x to 10 do
            begin
               s:=s+a[y];
               if s mod 11=0 then  begin
                                       for t:=x to y do
                                       write(a[t],' ':2);
                                       writeln;
                                       s:=0;
                                    end;
             end;
        end;
      readln;
     end.