From 60c42da052f1a0036c18d47b040e8eff20443a8e Mon Sep 17 00:00:00 2001
From: Timothy Warren <twarren@nabancard.com>
Date: Mon, 4 Oct 2021 11:16:26 -0400
Subject: [PATCH] Add function_procedure example

---
 simple_examples/function_procedure.pas | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 simple_examples/function_procedure.pas

diff --git a/simple_examples/function_procedure.pas b/simple_examples/function_procedure.pas
new file mode 100644
index 0000000..fd50974
--- /dev/null
+++ b/simple_examples/function_procedure.pas
@@ -0,0 +1,22 @@
+program function_procedure;
+
+{$mode objfpc}{$H+}
+
+uses strutils;
+
+procedure DisplayMessage(const aMsg: string);
+begin
+	WriteLn(DupeString('-', Length(aMsg)));
+	WriteLn(aMsg);
+	WriteLn(DupeString('=', Length(aMsg)));
+end;
+
+const LazDescription = 'Lazarus is a very powerful IDE';
+begin
+	DisplayMessage(LazDescription);
+	DisplayMessage('The message above will now be shown backwards.');
+	DisplayMessage(ReverseString(LazDescription));
+	{$IFDEF WINDOWS}
+	ReadLn;
+	{$ENDIF}
+end.