Add pascal snippets

UltiSnips/pascal.snippets

@@ -48,8 +48,38 @@ Begin
 End;
 endsnippet
 
+snippet function "Add a new function" b
+{   Procedure
+	@name: $1`!p
+if t[2] == "":
+	snip.rv = "\n\t"
+else:
+	snip.rv = "\n"
+	groups = t[2].split(";");
+	for group in groups:
+		snip.rv += f"\t@param {group}\n"
+	snip.rv += "\t"
+	`@return $3
+	@description: $4 }
+Function ${1:name}`!p
+if not (t[2] == ""):
+	snip.rv = " ("
+else:
+	snip.rv = ""`$2`!p
+if not (t[2] == ""):
+	snip.rv = ")"
+else:
+	snip.rv = ""` :  ${3:Integer};`!p
+if t[5] == "":
+	snip.rv = ""
+else:
+	snip.rv = "\nVar\n\t"`$5
+Begin
+	$0
+End;
+endsnippet
 
-snippet -- "Add multiline comment" A
+snippet -- "Add comment"
 (* $1 *)$0
 endsnippet