[הכומר]

שלום, אני צריך להכין פונקציה רקורסיבית וזאת הבעיה:
כתוב שגרה רקורסיבת המקבלת מספר שלם וחיובי ויוצרת מספר חדש אשר בו כל הספרות הזוגיות מימין לכל הספרות האי זוגיות.
עשיתי כזה דבר(בפסקל):

PHP קוד:

   Function MovingZogiEzogi(Num : Longint) : Longint;
   Var
      Tmp : Integer;
   Begin
        If Num < 10 Then
           MovingZogiEzogi := Num
        Else
            Begin
            Tmp := MovingZogiEzogi(Num Div 10);
            If (Num Mod 10 Mod 2 = 0) Then
                MovingZogiEzogi := MovingZogiEzogi(Num Div 10)
            Else
                MovingZogiEzogi := MovingZogiEzogi(Num Div 10) * 10 + Num Mod 10 * 10
            End;
   End; 


איך אני יכול לפתור את הבעיה הזאת?