Pascal/Turbo Pascal - alguien que traduzca este pseudicodigo a pascal porfa

este pseudocodigo es para crear el metodo de busqueda binaria, pero no le entiendo bien, alguien lo puede traducir, con algunas variales en si como ejemplo:

1.establecer primero < 1 y ultimo < n (n, numero de elementos.)
estas variables representan la primera y ultima posicion de la lista o sublista
donde se esta buscando y permite el calculo de la posicion del elemento actual.
2. encontrado < falso (variable logica)
3. mientras primero <= ultimiy encontrado = falso hacer
{encontrar posicion central}
central < (primero+ultimo) div 2
{comparar elemento buscado t con a[central]}
si t = a[central]
entonces encontrado < verdadero
sino si t> a [central]
entonces primero < central + 1
sino ultimo < central - 1
fin_mientras
4. si encontrado = verdaderp
entonces posicion < central
sino posicion < 0
fin_Si