Программа

{ Преобразование числа в строку }
FUNCTION Stringer(N:integer):string;  { Функция преобразования числа в строку }
  Var St:string;  { Переменная для преобразования числа в строку }
  Begin
    Str(N,St);  { Преобразование }
    Stringer:=St  { Определение значения функции }
  End;
BEGIN
  WriteLn('>',Stringer(1234),'<')
END.

  Схема функции "Stringer"

  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
         :
 *****************       ┌─
 *               *       │
 *   Str(N,St)   *       │ Преобразование числа в строку
 *               *∙∙∙∙∙∙∙│
 * Stringer:=St  *       │ Определение значения функции
 *               *       │
 *****************       └─
         :
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************