麻烦大家帮一下忙，帮我看看我的编的程序哪里不对，自己找不出来，万分感谢！
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.