unit MyUnit; 

initialization
  writeln('Секция инициализации. Выполняется до начала основной программы')
finalization
  writeln('Секция финализации. Выполняется после окончания основной программы')
end.