PROGRAM_meno programu;
USES_použité knižnice;
CONST_definovanie konštánt programu;
TYPE_definovanie nových typov premenných;
VAR_definovanie premenných;
BEGIN { hlavné begin - začiatok programu }
príkaz_1;
príkaz_2;
..
END. { hlavné end - koniec programu }

Ďalej si popíšeme definičnú časť.

1.PROGRAM_meno programu;
2.USES_použité knižnice;

Programovací jazyk TP mal pri svojom vzniku niekoľko základných príkazov. Asi by bolo jednoduché sa toľko príkazov naučiť, ale náročnejšie s tak málo príkazmi programovať. Preto bola možnosť na základe už známych príkazov vytvárať nové a nové. To určite zo začiatku stačilo, ale po čase sa v tejto hŕbe príkazov nik nevyznal. Kvôli tomu vznikla myšlienka uskladňovať tieto do tzv. knižníc presne tak ako v knižniciach.

Takže ak idem programovať tlačiaren, použijem knižnicu PRINTER, ak grafiku, tak GRAPH. Preto než začnem písať program, musím určiť, z akej knižnice budem používať príkazy. My si popíšeme len tie základné.

CRT - práca s obrazovkou v textovom režime, práca s klávesnicou, práca s PC
DOS - pre podporu funkcií DOSu (Windows)
GRAPH - grafické rutiny pre prácu v grafickom režime
PRINTER - príkazy pre prácu s tlačiarňou
A ďalšie iné, ktorých je mnoho, pretože každý programátor si môže vytvoriť vlastnú knižnicu.
3.CONST_konštanty programu;
4.TYPE_definovanie nových premenných;
5.VAR_definovanie premenných;
Procedúry a funkcie
Vysvetlenie procedúry

Pri písaní programu sa často stáva, že niektoré príkazy, lepšie povedané sústava príkazov, sa opakuje. Aby sme sa tomu vyhli, sprehľadnili program a hlavne uľahčili si prácu, môžeme takéto príkazy zlúčiť do jedného a dať mu nové meno. Programátor tým vlastne vytvorí nový príkaz. Toto nám poskutujú procedúry (funkcie).

Procedúra je vlastne taký malý program v programe. Takže až na malé zmeny má tú istú štruktúru.

Štruktúra:

PROCEDURE_meno procedúry(definícia vstupných premenných);

V definícii vstupných premenných napíšem s akými typmi premenných môžeme volať procedúru. Ako príklad nám poslúži procedúra ktorá zlúči príkazy GotoXY a Write nazvime je WriteXY. Vstupné parametre budú súradnice X,Y a text aký sa ma na tieto súradnice vypísať. Preto napíšem:

procedure WriteXY(x,y:integer;s:string);

Ostatné je intuitívne jasné, preto prejdeme hneď k príkladu a napíšeme si program, ktorý bude nahradzovať sústavu príkazov GotoXY a Write jediným WriteXY.