Форматированный вывод числа. С клавиатуры вводится целое число в десятичной системе счисления. Написать программу, реализующую вывод его представления с разделением на триады цифр. пример: число 10000 формат.вывод 10 000 — Pascal(Паскаль)

uses crt;
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите длинное целое число до 190 символов:');//чтобы за 255 не выйти
readln(s);
i:=length(s);
k:=1;счетчик цифр
while i>1 do//идем с конца
 begin
  i:=i-1;//к началу
  k:=k+1;//считаем
  if k=4 then//если 4
   begin
    insert(' ',s,i+1);//после нее вставляем пробел
    k:=1;//счетчик=1
   end;
 end;
write(s);
readln
end.