diff --git a/KOL.pas b/KOL.pas
index 9c5e103..a0f7c3a 100644
--- a/KOL.pas
+++ b/KOL.pas
@@ -10579,6 +10579,7 @@ type
 //[Integer FUNCTIONS DECLARATIONS]
    procedure Swap( var X, Y: Integer ); overload;
    procedure Swap(var X, Y: Byte); overload;
+   procedure Swap(var X, Y: String); overload;
    {* exchanging values }
    function Min( X, Y: Integer ): Integer;
    {* minimum of two integers }
@@ -14673,6 +14674,15 @@ begin
   Y := T;
 end;
 
+procedure Swap(var X, Y: String); overload;
+var
+  T: String;
+begin
+  T := X;
+  X := Y;
+  Y := T;
+end;
+
 //[function Min]
 function Min( X, Y: Integer ): Integer;
 asm