Longest common substring: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,388: / Line 1,388: @@
 {{works with|FreePascal|version 3.2.0 }}
 <lang Pascal>
-PROGRAM lcss.pas;
+PROGRAM LongestCommonSubString.pas;
 {$DEFINE DEBUGGING}
@@ Line 1,406: / Line 1,406: @@
 (*)
-    FUNCTION LCSS( S1, S2: string ) : string ;
+    FUNCTION lcss( S1, S2: string ) : string ;
     (*)
@@ Line 1,454: / Line 1,454: @@
                         END ;
                 END ;
-            LCSS :=  copy ( S1, Start, ( Start + Max ) ) ;
+            lcss :=  copy ( S1, Start, ( Start + Max ) ) ;
         END ;