[Turbo Pascal] Program do liczenia azymutów

Wszystko jest na screenie, wywala mi error że nie mogę skończyć programu. Możecie mi pomóc, ewentualnie zerknąc na całośc gdzie sa błędy? Program ma liczyć azymuty 

 

http://scr.hu/4dy7/makzm

Prościej by było jakbyś wkleił kod bo oczopląsu dostaje się patrząc na to.

 

Wydaje mi się, że brak średnika w trzecim end od dołu.

ale jak dam tam średnik to wtedy nie zakończe programu…

Czemu piszesz, że to Turbo Pascal, skoro masz środowisko Free Pascal? Nazwa języka to jest poprostu Pascal, Turbo Pascal to nazwa starego i nieużywanego IDE Pascala pod DOS. Na którą linijke pokazuje? Błąd mówi wyraźnie, że brakuje ;