pascal里出现error 106

Question

program shu_zi_san_jiao(input,output);
var a:array[1..5,1..5] of integer;
b:array[1..100] of integer;
f:text;
i,j:integer;
begin
i:=1;j:=1;
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
assign(f,'c:\tp7\b.txt');
reset(f);
while not eof(f) do
begin
if not eoln(f) then begin
read(f,a[i,j]);
j:=j+1;
end
else begin
readln(f);
i:=i+1;
j:=1;
end;
end;
close(f);
for i:=1 to 5 do b[i]:=a[4,i];

for i:=4 downto 1 do
begin
for j:=1 to i do
begin
if b[j]<=b[j+1] then b[j]:=b[j]+a[i,j]
else b[j]:=b[j+1]+a[i,j];
end;
b[i+1]:=0
end;
writeln(b[1]);
readln;readln;
end.
程序是用来求顶端到底端的最短路径
测试数据：
7
3 8 
8 1 0 
2 7 7 4 
4 5 2 6 5

Answer 1

error 106：Invalid numeric format 无效数值格式

追问

我想知道怎么解决

追答

按f7单步执行

追问

很负责任地说，应该是按F8单步运行吧。。。

追答

就是f7呀？

追问

我用的是turbo pascal。。。free pascal也是用F8。。。算了，帮我看看怎么解决就行了

追答

每一行后的空格删掉，通过

Answer 2

把输入数据每一行后面的空格删掉