while m<=100 do begin
writeln('x[',m,']=',x[m]); m:=m+1;
end;
の部分を
for m:=1 to 100 do begin
writeln('x[',m,']=',x[m]);
end;
に変えたらなぜか知らないけどうまくいきました。すいません。