1.麻烦大家帮一下忙，帮我看看我的编的程序哪里不对，自己找不出来，万分感谢！
program ex;
   var
     i,j,k,t:integer;
   begin
     k:=0;
      for i:=1 to 9 do
         begin
             t:=1;
           for j :=1 to i*2-1 do
              if j<=i then 
                  if j=1 then  write(j:40-k)
                  else write(j:2)
              else
                 begin
                  write(j-2*t:2);
                  t:=t+1
                 end
            writeln;
         k:=k+1
      end
end.
2.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有多少粒糖果？