From 5ee3e9290fe90ecf46e4817964a8bc8c81be478d Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Mon, 27 Dec 2021 00:13:52 +0300
Subject: [PATCH] fix #2587

---
 TestSuite/ToIntegersS.pas | 8 ++++++++
 bin/Lib/PABCSystem.pas    | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 TestSuite/ToIntegersS.pas

diff --git a/TestSuite/ToIntegersS.pas b/TestSuite/ToIntegersS.pas
new file mode 100644
index 000000000..3659e02f9
--- /dev/null
+++ b/TestSuite/ToIntegersS.pas
@@ -0,0 +1,8 @@
+begin
+  var s := '12 34 56';
+  Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56)));
+  Assert(s.ToIntegers.ArrEqual(Arr(12,34,56)));
+  s := ' 12 34 56   ';
+  Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56)));
+  Assert(s.ToIntegers.ArrEqual(Arr(12,34,56)));
+end.
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 4eae01ff9..5ab3bf243 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -12992,7 +12992,7 @@ function ToIntegers(Self: string; N: integer): array of integer; extensionmethod
 begin
   // SSM Скорость работы на 30% выше чем у ToIntegers без параметров
   Result := new integer[N];
-  var from := 1;
+  var from := 0;
   for var i:=0 to N-1 do
     Result[i] := Self.ReadInteger(from);
 end;