PCL: Remove incorrect ;s

pcl/programs/Caesar_cipher.pcl

@@ -18,7 +18,7 @@ begin
     else if (c >= 'a') and (c <= 'z') then
         shift := chr(((ord(c) - 32 - ord('A') + k) mod 26) + ord('A'))
     else
-        shift := c;
+        shift := c
 end;
 
 begin
@@ -29,7 +29,7 @@ begin
     if (key < 1) or (key > 25) then
     begin
         writeString("Invalid key! Key must be a number between 1 and 25!!\n");
-        valid_key := false;
+        valid_key := false
     end
     else
         valid_key := true;
@@ -45,13 +45,13 @@ begin
         begin
             ch := plaintext[i];
             ciphertext[i] := shift(ch, key);
-            i := i + 1;
+            i := i + 1
         end;
 
         ciphertext[i] := '\0';
 
         writeString("Ciphertext: ");
         writeString(ciphertext);
-        writeString("\n");
-    end;
+        writeString("\n")
+    end
 end.

pcl/programs/bsort.pcl

@@ -44,7 +44,7 @@ program bsort;
          writeInteger(x[i]);
          i := i+1
       end;
-      writeString("\n");
+      writeString("\n")
    end;
 
    var i    : integer;

pcl/programs/edit_distance.pcl

@@ -69,7 +69,7 @@ begin
 			j := j + 1
 		end;
 
-		i := i + 1;		
+		i := i + 1
 	end;
 
 	writeString("\n\nEdit Distance is: ");

pcl/programs/palindrome.pcl

@@ -21,11 +21,11 @@ begin
     begin
         if s[i] <> s[l - i - 1] then
         begin
-            result := 0;
+            result := 0
         end;
 
         i := i + 1
-    end;
+    end
 end;
 
 begin

pcl/programs/primes.pcl

@@ -44,7 +44,7 @@ begin
    if limit >= 3 then
    begin
       counter := counter + 1;
-      writeString("3\n");
+      writeString("3\n")
    end;
    number := 6;
    while number <= limit do
@@ -59,7 +59,7 @@ begin
       begin
          counter := counter + 1;
          writeInteger(number+1);
-         writeString("\n");
+         writeString("\n")
       end;
       number := number + 6
    end;