pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁

program long;
var
i:string;
j,k,l,m,n:longint;
begin
l:=0;
for k:=0 to 9 do
write(k,' ');
writeln;
for k:=1 to 999 do
begin
str(k,i);
for j:=1 to length(i) do
if (i[j]=i[length(i)-j+1]) and (j