(18): ',' or '.' expected but '=' found
En este caso te está diciendo que te falta un
El
BEGIN del programa debe tener un
END; y el
PROGRAM (del inicio) debe tener un
END.
Atí te falta un END; antes del END.
(26): type 't_fecha is not yet completely defined
En este caso te está hablando de que hay un probema con t_fecha en la línea (26). Me da la impresión de que se trata de una incongruencia entre t_data y t_fecha que son lo mismo, y en algunos sitios lo llamas de una manera y en otros de otra.
Arregla estos y recompila de nuevo; A veces al arreglar algunos te da mejor los que quedan. Revisa también la descripción del error y la línea ya que muchas veces te da la descripción clara de lo que es.