....
typedef struct{
      int a;
      tipo b;

}nombre;

extern nombre Variable;

void funcion();
...

#endif

#include "ejemplo.h"

...
nombre Variable;
....

void funcion(){
   Variable->a = 1;
}

#include "ejemplo.h"

int main(){
     funcion();
     
}

@Override
	public boolean agregar(Integer elem, int pos) {
		NodoEntero anterior = inicio;
		NodoEntero aux = inicio;
		NodoEntero n = new NodoEntero();
		
		n.setDato(elem);
		n.setSiguiente(null);
		
		int i = 0 ; 
		
		if( ( aux==null) || (pos == 0 )){
			inicio= n ;
			aux = n ; 
			this.tamanio++;
			return true;
		} else
				
			while (( i != pos) || (aux.getSiguiente() != null)){    //Aca esta el error 
				i++;
				anterior = aux;
				aux = aux.getSiguiente();
			}
				if (pos == i){
					anterior.setSiguiente(n);
					n.setSiguiente(aux);
					this.tamanio++;
					return true;
				}else
					return false;
				
				
			
	}

Program ejemplo;
var
   cant,maximot:integer;
   letra:char;
begin
     cant:=0;
     maximot:=0;

     Writeln('Inserte los caracteres :' ); Read(letra);

     while(letra='')do
                   read(letra);

     while (letra <>'.')do begin
           cant:=0 ;

           if( letra='t') then  begin
               cant:=cant+1;

               while(letra<>'') or (letra <>'.') do begin
                             read(letra) ;
                              cant:=cant+1 ;
               end;
               if(cant>maximot)then
                                   maximot:=cant;
              end;
     end;
     Writeln('La cantidad de caracteres leidos fue de : ' , cant);
     readln;
     readln
end.