关于pascal的一段99乘法表的写法~该如何解决

关于pascal的一段99乘法表的写法~
本帖最后由 yuki58 于 2013-04-29 14:19:12 编辑 var i : integer;
begin
  for i :=1 to 9 do begin
  write(i, 'x1= ',i*1,'   ':0);
  end;
  for i :=1 to 9 do begin
  write(i, 'x2= ',i*2,'   ':0);
  end;
  for i :=1 to 9 do begin
  write(i, 'x3= ',i*3,'   ':0);
  end;
   for i :=1 to 9 do begin
  write(i, 'x4= ',i*4,'   ':0);
  end;
    for i :=1 to 9 do begin
  write(i, 'x5= ',i*5,'   ':0);
  end;
     for i :=1 to 9 do begin
  write(i, 'x6= ',i*6,'   ':0);
  end;
     for i :=1 to 9 do begin
  write(i, 'x7= ',i*7,'   ':0);
  end;
    for i :=1 to 9 do begin
  write(i, 'x8= ',i*8,'   ':0);
  end;
    for i :=1 to 9 do begin
  write(i, 'x9= ',i*9,'   ':0);
  end;
end.


请高手赐教~~
上面的代码显示结果之后，格式不对齐的~是否有问题 

[解决办法]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : integer;
  s: string;
begin
  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx1=%2d   ',[i, i*1]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx2=%2d   ',[i, i*2]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx3=%2d  ',[i, i*3]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx4=%2d   ',[i, i*4]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx5=%2d   ',[i, i*5]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx6=%2d   ',[i, i*6]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx7=%2d   ',[i, i*7]); 
 
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx8=%2d   ',[i, i*8]);
  end;
  write(s+#13);

  s := '';
  for i :=1 to 9 do begin
    s := s + Format('%dx9=%2d   ',[i, i*9]);
  end;
  write(s+#13);

  readln;
end.