procedure IntToStr(int:integer;var str:string);
Procedūrai IntToStr tiek nodota integer tipa vērtība int un virknes tipa mainīgais str. Procedūra sākumā pārbauda vai vērtība ir negatīva, un ja ir tad pirmajā string vietā ieraksta „-”. Pēctam pagaidu string mainīgajā tmp cikliski ieraksta katru nodotā integer vērtību to dalot ar 10 tādejādi iegūstot vienus, desmitus, simtus un tūkstošus. Tā kā dalot vērtības ir apgrieztā secībā, tad cikliski apgriež vērtības un nodod visu simbolu virknei str, kuru atgriež procedūra.
…
