From 90c10b54a247f29740f65ac26fdf91c7f7fee8ad Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Tue, 14 Oct 2025 21:32:56 +0300
Subject: [PATCH] =?UTF-8?q?OrdWindows=20ChrWindows=20-=20=D0=B7=D0=B0?=
 =?UTF-8?q?=D0=BC=D0=B5=D0=BD=D0=B8=D0=BB=20=D1=81=D1=82=D1=80=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=BD=D1=8B=D0=B5=20=D0=BD=D0=B0=D0=B7=D0=B2=D0=B0=D0=BD=D0=B8?=
 =?UTF-8?q?=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../!Tutorial/07_CharString/Char1.pas         | 17 +++++++---------
 .../!Tutorial/07_CharString/Char2.pas         | 20 +++++++++----------
 bin/Lib/PABCSystem.pas                        |  8 ++++----
 3 files changed, 20 insertions(+), 25 deletions(-)

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)