#hws
func do_in(dt)
println ('procedure MyProc(Arg:integer);')
println('begin')
//мой код...
println('end;')

//Затем здесь делаешь вызовы MyProc
end