выдает ошибку. как исправить?

[avi-vi]

как ошибку убрать... в бесконечном цикле при увеличении переменной на 0.01 в 17 шаге он выдает ахинею

вот... несколько шагов... 0.77
0.78
0.79
0.8
0.810000000000001
прибавляется 0.01

[avi-vi]

код очень прост )))
for var m:=1 to 100 do
begin
m:=m+0.01;
writeln(m);
end;

[compres]

writeln(m:0:2);