diff --git a/VisualPlugins/TraningControlPlugin/LoginForm.cs b/VisualPlugins/TraningControlPlugin/LoginForm.cs
index d0872f3b5..e2f5e10f4 100644
--- a/VisualPlugins/TraningControlPlugin/LoginForm.cs
+++ b/VisualPlugins/TraningControlPlugin/LoginForm.cs
@@ -193,7 +193,7 @@ namespace DBAccessPluginNamespace
             }
             
             // На мехмате проверяем lightPT
-            var isLightPT = Plugin.IsLightPTInWorkingDirectiry();
+            var isLightPT = Plugin.IsLightPTInWorkingDirectory();
             // Первый вариант - в родительский или текущий
             var authCreated = false;
 
diff --git a/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs b/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
index f85bcf57c..c44ee6213 100644
--- a/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
+++ b/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
@@ -46,7 +46,7 @@ namespace VisualPascalABCPlugins
             this.Workbench = Workbench;
             VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
 
-            if (IsLightPTInWorkingDirectiry())
+            if (IsLightPTInWorkingDirectory())
             {
                 IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-");
                 User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
@@ -88,7 +88,7 @@ namespace VisualPascalABCPlugins
             return "";
         }
 
-        public bool IsLightPTInWorkingDirectiry()
+        public bool IsLightPTInWorkingDirectory()
         {
             var WorkingDir = WorkingDirectory();
             var lightptname = Path.Combine(WorkingDir, "lightpt.dat");
@@ -209,7 +209,7 @@ namespace VisualPascalABCPlugins
             // SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем 
             // или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!!
             {
-                if (IsLightPTInWorkingDirectiry()) // если lightpt.dat существует в текущем
+                if (IsLightPTInWorkingDirectory()) // если lightpt.dat существует в текущем
                     InitItems(MenuItems, ToolBarItems);
                 /*else
                 {
@@ -249,7 +249,7 @@ namespace VisualPascalABCPlugins
 
                 // !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!!
                 var AuthFileFullName = "";
-                if (IsLightPTInWorkingDirectiry()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
+                if (IsLightPTInWorkingDirectory()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
                     AuthFileFullName = FullAuthNameFromWorkingDirOrParent();
                 /*if (AuthFileFullName == "" && IsMechmath)
                 {
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 8c10a925e..354c2b967 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -8884,9 +8884,10 @@ begin
   var n := l.Count;
   for var i := 0 to n - 1 do
   begin
+    var ind := Random(n);
     var v := l[i];
-    l[i] := l[Random(n)];
-    l[Random(n)] := v;
+    l[i] := l[ind];
+    l[ind] := v;
   end;
 end;