procedure 过程名[(形参1;[形参2;[...]])];
begin
  过程体;
end;
调用：过程名[(实参1;[实参2;[...]])];

procedure 函数名[(形参1;[形参2;[...]])];
begin
  函数体;
end;
调用：函数名[(实参1;[实参2;[...]])];

其中形参格式：
变量名:类型 按值传递（数组等也是如此）
var 变量名:类型 按址传递
const 变量名:类型 按址传递（不能修改值）

[em10]