Salve a tutti!

Vorrei realizzare un algoritmo in Pascal Like che mi permetta di verificare se data una lista, tutti i suoi elementi sono uguali...

ho pensato ad una cosa del tipo:

codice:
function list_elem ( head ) : integer
        if ( head != NULL ) then
              if ( head.info = head.link.info) then
                     list_elem := list_elem(head.link)
              else
                     list_elem := 0
              
              endif
       else
              list_elem := 1
       
       endif

end list_elem
Non so, il professore di programmazione Mod. B mi ha detto che quella notazione head.link.info va bene per il C, ma in P-Like non è preferibile...

Come potrei realizzare l'algoritmo evitando questa notazione?

Grazie a tutti