Έκδοση 8, Αναθεώρηση 49

Μια καλή διόρθωση...για να δουλεύει το παρακάτω (αλλιώς ήθελε δυο εντολές αντί για μία, δεν θα το εξηγήσω άλλο απλά δείτε το πρόγραμμα). Θέλει την αναθεώρηση 49. Δείτε στα δεξιά στις προτεινόμενες σελίδες το πηγαίο κώδικα (έχει και το εκτελέσιμο αρχείο).

κλαση αλφα {
ονομα$="Χωρίς Όνομα"
Θρησκεία$
Συνάρτηση Ονοματοδοσία$ {
      Βάλε .Θρησκεία$ \\ στο Θρησκεία$ κρατάμε τον ορισμό μιας συνάρτησης!
      Διάβασε &Ενέργεια$(), νεο_ονομα$ \\ Την ζωντανεύουμε και την εκτελούμε!
      =Ενέργεια$(&αυτο, νέο_ονομα$)
}
τμημα άλφα {
      διαβασε .Θρησκεια$
}
}
Συνάρτηση Χριστιανός$ {
      διάβασε &ποιο
      διάβασε ποιο.όνομα$
      ="Σοφία Ορθή..."
}
Συνάρτηση Μωαμεθανός$ {
      διάβασε &ποιο
      διάβασε ποιο.όνομα$
      ="Μα τον Αλλάχ..."
}
πινακας β(10)=αλφα(&Χριστιανός$())
Τύπωσε β(1).όνομα$, β(2).όνομα$
Τύπωσε β(0).Ονοματοδοσία$("Πέτρος"), β(0).όνομα$
Τύπωσε β(4).Ονοματοδοσία$("Γιώργος"), β(4).όνομα$
πινακας β(20) \\ τα επιπλέον στοιχεία είναι άδεια\\ πρέπει να τα ορίσουμε αλλά οι συναρτήσεις μένουν ως έχουν!
β(14)=αλφα(&Μωαμεθανός$())
Τύπωσε β(14).Ονοματοδοσία$("Αλί"), β(14).όνομα$
ομαδα Λ {ονομα$="Χωρίς Όνομα"
Θρησκεία$ }
Βάλε &Χριστιανός$()
Διάβασε Λ.Θρησκεία$
β(15)=Λ \\ δίνουμε μόνο τα δεδομένα, οι συναρτήσεις υπάρχουν!

\\ αυτό γίνεται μόνο όταν αρχικά ορίσουμε πίνακα με μια κλάση!

Τύπωσε β(15).Ονοματοδοσία$("Χρήστος"), β(15).όνομα$