(Turbo Pascal)Текстовые файлы - символьное представление

Доброго времени суток.

Если "Текст представляет собой запись натурального числа N", то это уже символьное представление. Следовательно остается разделить это представление на триады. Это можно сделать, например, так.

L := Length(S); {длина строки цифр}
for i:= L downto 1 do
if ((L-i+1) mod 3 = 0) and (i > 1) then Insert(' ', S, i); {вставка пробелов в нужные места}
WriteLn(S); {а это чтобы полюбоваться на результат}

Удачи!

запросто напишу нужную вам функцию, баксов за 3, обращайтесь.

Не проверял, но должно работать

переменные
i, c:integer;
N, str:string;

ввод N \\ строка 100, 10000 и т. д. - если цифра то нужно преобразовать в строку через inttostr(N)

if Length(N)>4 then \\ если строка длиньше 4 символов, например 10000 и т. д, то нужно её преобразовать
begin
for i:=1 to Length(N) do \\ шагаем по всей длине строки слева направо - i:=i+1
begin
c:=Length(N)-i; \\ шагаем по всей длине строки справа на лево - с: =с-1(делаем обратный отчет)
str:=N[c]+str; \\ вставляем символ в начало строки по шагу "с" (так как двигаемся справо на лево)
if ((с mod 3)=0)and(i<>Length(N)) then \\ если очередной шаг делеться на 3 без остатка и не равен концу строки, то
str:=' '+str; \\ вначало строки вставляем пробел (то есть после каждого 3-го символа справа на лево нужно вставить пробел - например 1 000)
end;
end
else
str:=N; \\ если число меньше 4 символов например 999, то её не нужно преобразовывать

выводим str; \\ получаем результат
end.