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

Var
  s:string;
  i:integer;
begin
  Write(Введите натуральное число: ); Readln(s);
  i:=Length(s)-2;
  while igt;1 do begin Insert(,,s,i); i:=i-3 end;
  Writeln(s)
end.

Пример
Введите натуральное число: 12345678
12,345,678