pascal高手进 奇怪的问题

先看这段代码：
说明：在这段代码之前，sort数组已经排好序了。counts是用来计数的，用以统计相同数字出现的次数。输出的格式为：
数字 次数
（最后一个数据不对）
counts:=1;
write(sort[1]);
for i:=2 to n do
begin
if sort[i-1] = sort[i] then
counts:=counts+1
else
begin
write(' ');
writeln(counts);
write(sort[i]);
counts:=1;
end;
if i=n then
begin
write(' ');
writeln(counts);
end;
end;
为什么改成这样就对了呢？这有什么区别么？
counts:=1;
write(sort[1]);
for i:=2 to n do
begin
if sort[i-1] = sort[i] then
counts:=counts+1
else
begin
write(' ');
writeln(counts);
write(sort[i]);
counts:=1;
end;
end;
write(' ');
writeln(counts);
end;
end;

有关PASCAL的，高手进！ pascal题“奇怪的函数” 问PASCAL的题目 有关pascal的一个问题，高手进 高手帮忙,奇怪的问提 C++中的一个奇怪的数据类型：PASCAL* pascal 高手进 PASCAL高手进~ PASCAL 高手进！！ Turbo pascal 高手进