בעיה רקורסיבית

[הכומר]

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

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; 


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

[BlueNosE]

לא בדיוק ציינת איפה אתה תקוע.

[הכומר]

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