Run ID User Problem Result Memory Time Language Date  
243534  mjofdw  1003  Accepted 260 k 0 ms Free Pascal 2005-05-15 15:00:43

program tju2003;
  var x,i,j,k:integer;
    begin
    readln(x);
      for i:=1 to x do
        begin
          write(' ':x+1-i); // 这里多打印了一个空格, 应为 write('':x-i);
            for j:=1 to 2*i-1 do
              write(chr(ord('A')-1+i));
          writeln;
        end;
    readln(x); // 这个应为 readln;
end.

算法没什么问题,主要就是以上的.
修改后的程序

program tju2003;
  var x,i,j,k:integer;
    begin
    readln(x);
      for i:=1 to x do
        begin
          write('':x+1); // 这里多打印了一个空格, 应为 write('':x-i);
            for j:=1 to 2*i-1 do
              write(chr(ord('A')-1+i));
          writeln;
        end;
end.

类似问题发到信息学讨论区.