for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(a[i,j]-1);
      str(a[i,j]-1,s);
      for k:=1 to 5-length(s) do write(' ');
    end;
    writeln;
  end;
这是最后的输出，我明明按照题目的要求来的，可还是有一个测试点有问题，不知何故？