A very nice procedure snippet for pascal

UltiSnips/pascal.snippets

@@ -18,6 +18,37 @@ Begin
 End.
 endsnippet
 
+snippet procedure "Add a new procedure" 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"
+	`@description: $3 }
+Procedure ${1:name}`!p
+if not (t[2] == ""):
+	snip.rv = " ("
+else:
+	snip.rv = ""`$2`!p
+if not (t[2] == ""):
+	snip.rv = ")"
+else:
+	snip.rv = ""`;`!p
+if t[4] == "":
+	snip.rv = ""
+else:
+	snip.rv = "\nVar\n\t"`$4
+Begin
+	$0
+End;
+endsnippet
+
+
 snippet -- "Add multiline comment" A
 (* $1 *)$0
 endsnippet