Вывод числа триадами

Pas.0020. Напишите программу, которая выводит заданное натуральное число триадами с разделителем апостроф «$'$», например, \[
1234567890 =1'234'567'890. \]

Решение.

program ЧислоКакСтрокаСТриадами;

const
    ТЕСТИРУЕМОЕ_ЧИСЛО = 1234567890;
    ТЫСЯЧА = 1000;
    РАЗДЕЛИТЕЛЬ_ТРИАД = '''';
    
var
    леваяЧастьЧисла : longint = ТЕСТИРУЕМОЕ_ЧИСЛО;
    числоКакСтрока : string = '';
    очереднаяТриада : string;

begin

    while леваяЧастьЧисла > 0 do
    begin
        str(леваяЧастьЧисла mod ТЫСЯЧА, очереднаяТриада);
        числоКакСтрока := очереднаяТриада + числоКакСтрока;
        леваяЧастьЧисла := леваяЧастьЧисла div ТЫСЯЧА;
        if леваяЧастьЧисла > 0 then
            числоКакСтрока := РАЗДЕЛИТЕЛЬ_ТРИАД + числоКакСтрока;
    end;
    
    write(ТЕСТИРУЕМОЕ_ЧИСЛО, ' = ', числоКакСтрока, '.');
  
end.

Консоль.

1234567890 = 1'234'567'890.