{tohle je snad spravne, alespon myslim :D}

unit ialjp_09_01_modul; {soubor se musi jmenovat jako modul (unit)}
interface {co neni v interfacu neni videt pro ostatni programy (lokalni casti programu}
{typy, konstanty, hlavicky procedur, a funkci, prip. promenne}

type TPokusnyType=record
        a,b:integer;
        c:string;
     end;
const PI=3.14159;
procedure TestProc(a:real);
function TestFunc(param:real):real;

implementation {jsou lokalni casti programu - musi byt uvedeny i ty z intepade}

procedure TestProc(a:real);
begin
     writeln('a=',a);
end;
function TestFunc(param:real):real;
begin
end;

begin {spusti se jeste pred spustenim programu, ktery modul vola (pouziva)}
      writeln('Trtkal 2008 - http://fei.trtkal.net');
end.