【问题】有一些不明白的问题，希望前辈们指点一下

输入一个正整数（输入内容一定是一个正整数，且数的位数<255），将这个数从后往前每隔三位点一个逗号输出。 如：输入：1234567890 输出：1，234，567，890
我编的程序是这样的，不知道为什么在运行时不出答案，希望提示一下错在哪里。
var num:string;
dou:char;
w:integer;
begin
readln(num);
w:=2;
dou:=',';
while w<>length(num)-3 do
begin
insert(dou,num,w);
w:=w+4;
end;
writeln(num);
readln;
end.