戻り値がない関数を作る場合は、Procedure　-　Fendを使用します。
Var 宣言を付けると引数を変更可能とする（参照引数）
配列変数には次元数分 []を付ける　（２次元配列の場合 引数[][] ）
= 定数 にてデフォルトパラメータを指定できる　（デフォルトパラメータ以降に通常引数を書く事はNG）

PROCEDURE 関数名( 引数,　Var 引数,　引数[],　Var 引数[][],　引数=定数, .... )
　　　　処理
FEND