用delphi语言编乖法表

999乘法表是不是99乘法表啊

var
k,j:Integer;
str:string;
begin
j:=0;
str:='';
for j:=1 to 9 do //此处9可以换成其它比它大的数字 ，99也可以
begin
if j<>1 then
begin
str:=str+#13#10;
end;
for k:=1 to j do
begin
if k=1 then
begin
str:=str+inttostr(k)+'×' +inttostr(j)+'='+inttostr(k*j);
end
else
begin
str:=str+' '+inttostr(k)+'×' +inttostr(j)+'='+inttostr(k*j);
end;
end;
end;
//str就是最后结果了
ShowMessage(str);
end;

不知道怎么截图。

var
k,j:Integer;
str:string;
begin
j:=0;
str:='';
for j:=1 to 9 do //此处9可以换成其它比它大的数字 ，99也可以
begin
if j<>1 then
begin
str:=str+#13#10;
end;
for k:=1 to j do
begin
if k=1 then
begin
str: