Моя версія функції delphi inttostr

function myIntToStr (value: integer): string - / / Початок функції

var tempStr, RStr: string - / / Терміни, які будуть використовуватися
n, n1, n2, count1, count2, t, p, d: integer - / / Змінні, які будуть використовуватися

begin / / початок розрахунків по функції

if value gt; = 0 then n: = value else n = (- value);
/ / Отримання модуля введеного числа
n1 = n - / / Буде використано для пошуку кількості знаків в числі
n2 = n - / / Буде використано в основному циклі
count1 = 0 - / / накопичувати інформацію про кількість знаків у числі
tempStr = `` - / / Починаємо з порожньою терміни




repeat / / За допомогою цього циклу буде знайдена кількість знаків у числі
begin / / Початок тіла циклу
n1 = n1 div 10 - / / Процедура представляє собою послідовний розподіл числа на 10
count1 = count1 +1 - / / Після виходу з циклу дорівнює кількості знаків
end - / / Завершення тіла циклу
until / / Умова виходу з циклу
n1 = 1, то d буде інше значення



begin / / Початок процедури знаходження d
for p: = 1 to n1 do / / Цикл знаходження технічної змінної d
begin / / Початок циклу знаходження d
d = d * 10 - / / d є 10 в ступені n1
end - / / Завершення циклу знаходження d
end - / / Завершення процедури знаходження d

while n2 gt; = D do / / Цикл зменшення n2: виконується, поки n2 більше d
begin / / Початок циклу зменшення n2
n2 = n2 - d - / / Віднімаємо d від n2
count2 = count2 +1 - / / Вважаємо кількість таких операцій
end - / / Завершення циклу зменшення n2

tempStr = tempStr + format ( `% d`, [count2]) - / / Зберігаємо значення count2
/ / Це значення відповідає цифрі, яка обіймає цю позицію

end - / / Завершення циклу обходу знаків
end - / / Завершення основного циклу
if value gt; = 0 then RStr = tempStr else RStr = `-` + tempStr;
/ / Рядок з результатом збереже знак початкового числа
result: = RStr - / / Це терміну функція повертати після всіх розрахунків
end - / / Завершення розрахунків по функції