Помогите по Паскалю
срочно!
Нужно написать код в паскале который будет делить число на разряды к примеру.
ввод 12345678
вывод 12,345,678

var  s:string;  i:integer;begin  Write('Введите натуральное число: '); Readln(s);  i:=Length(s)-2;  while i>1 do begin Insert(',',s,i); i:=i-3 end;  Writeln(s)end.ПримерВведите натуральное число: 1234567812,345,678