[ Foro de Pascal ]

Creación de lista con punteros

Buenas;
Tengo como tarea crear una función que dada una palabra y un conjunto de palabras denominado "vocabulario" cree una lista de todas las palabras del vocabulario que son prefijo de la palabra dada.
Una palabra es un arreglo de caracteres y un vocabulario es un arreglo de palabras, ademas ya tengo definida una función booleana que determina si una palabra es prefijo de otra o no.
Dadas estas declaraciones:

type
    ListaPalabras = ^celda;
    celda = record
       info : TipoPalabra;
       sig  : ListaPalabras
    end;

como quedaría la función que cumple lo pedido?
El encabezado de la función debe de ser el siguiente:
function completarPalabra (prefijo : TipoPalabra; vocabulario : TipoVocabulario) : ListaPalabras;

Nota: no tengo permitido utilizar las siguientes facilidades de pascal:
uses, crlscr, gotoxy, crt, readkey, longint,string,break