completarPalabra.pas

function completarPalabra (prefijo : TipoPalabra; vocabulario : TipoVocabulario) : ListaPalabras;
var
  lista, proxima : ListaPalabras; 
  palabra : TipoPalabra;
begin
  completarPalabra := nil;
  lista := nil;
  for palabra in vocabulario do begin
    if (esPrefijo(prefijo, palabra)) then begin
      if (lista <> nil) then begin
        new(proxima);
        lista^.sig := proxima;
        lista := proxima;
      end
      else begin
        new(lista);
        completarPalabra := lista;
      end;
      lista^.info := palabra;
    end;
  end;
end;