diff --git a/InstallerSamples/!Tutorial/07_CharString/Char1.pas b/InstallerSamples/!Tutorial/07_CharString/Char1.pas
index 0093f5157..1913ca4f1 100644
--- a/InstallerSamples/!Tutorial/07_CharString/Char1.pas
+++ b/InstallerSamples/!Tutorial/07_CharString/Char1.pas
@@ -1,13 +1,10 @@
-// Стандартные функции Ord Chr
-var 
-  i: integer;
-  c: char;
+// Стандартные функции Ord и Chr
 
 begin
-  c := 'z';
-  i := Ord(c);
-  writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
-  i := 193;
+  var c := 'z';
+  var i := Ord(c);
+  Println($'Код символа {c} в кодировке Unicode равен {i}');
+  i := 1025;
   c := Chr(i);
-  writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
-end.
\ No newline at end of file
+  Println($'Символ с кодом {i} в кодировке Unicode - это {c}');
+end.
diff --git a/InstallerSamples/!Tutorial/07_CharString/Char2.pas b/InstallerSamples/!Tutorial/07_CharString/Char2.pas
index d89fd87a7..bae722ea1 100644
--- a/InstallerSamples/!Tutorial/07_CharString/Char2.pas
+++ b/InstallerSamples/!Tutorial/07_CharString/Char2.pas
@@ -1,13 +1,11 @@
-// Стандартные функции OrdUnicode ChrUnicode
-var 
-  i: integer;
-  c: char;
+// Стандартные функции OrdWindows ChrWindows
 
 begin
-  c := 'Д';
-  i := OrdUnicode(c);
-  writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
-  i := 1046;
-  c := ChrUnicode(i);
-  writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
-end.
\ No newline at end of file
+  var c := 'Д';
+  var i := OrdWindows(c);
+  Println($'Код символа {c} в кодировке Windows равен {i}');
+  i := 196;
+  c := ChrWindows(i);
+  Println($'Символ с кодом {i} в кодировке Windows - это {c}');
+end.
+
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index c0e73ee35..22e1525e7 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -2077,9 +2077,9 @@ function Succ(x: char): char;
 // Возвращает символ, отстоящий от x на n позиций вперёд
 //function Succ(x: char; n: integer): char;
 /// Преобразует код в символ в кодировке Windows
-function ChrAnsi(a: byte): char;
+function ChrWindows(a: byte): char;
 /// Преобразует символ в код в кодировке Windows
-function OrdAnsi(a: char): byte;
+function OrdWindows(a: char): byte;
 /// Преобразует код в символ в кодировке Unicode 
 function Chr(a: word): char;
 /// Преобразует символ в код в кодировке Unicode 
@@ -9860,7 +9860,7 @@ end;
 //                Char and String: implementation
 // -----------------------------------------------------
 
-function ChrAnsi(a: Byte): char;
+function ChrWindows(a: Byte): char;
 begin
   if a < 128 then
     Result := char(a)
@@ -9871,7 +9871,7 @@ begin
   end;
 end;
 
-function OrdAnsi(a: char): byte;
+function OrdWindows(a: char): byte;
 begin
   if a < #128 then
     Result := byte(a)