f.Write сделал типизированным

bin/Lib/PABCExtensions.pas

@@ -41,6 +41,12 @@ begin
   f.Close
 end;
 
+procedure Write<T>(Self: file of T; params vals: array of T); extensionmethod;
+begin
+  foreach var x in vals do
+    PABCSystem.Write(Self, x);
+end;
+
 var __initialized: boolean;
 
 procedure __InitModule;

bin/Lib/PABCSystem.pas

@@ -468,9 +468,6 @@ type
     procedure Erase;
     /// Переименовывает файл, давая ему имя newname 
     procedure Rename(newname: string);
-    ///- Write(f: file; a,b,...)
-    /// Выводит значения a,b,... в двоичный файл
-    procedure Write(params vals: array of object);
   end;
 
   // Class for typed files
@@ -504,6 +501,9 @@ type
     function FileSize: int64;
     /// Устанавливает текущую позицию файлового указателя в бестиповом файле на байт с номером n  
     procedure Seek(n: int64);
+    ///- f.Write(a,b,...)
+    /// Выводит значения a,b,... в двоичный файл
+    procedure Write(params vals: array of object);
   end;
  
 //{{{doc: Начало секции интерфейса для документации }}} 
@@ -5174,11 +5174,6 @@ begin
   PABCSystem.Rename(Self, newname);
 end;
 
-procedure AbstractBinaryFile.Write(params vals: array of object);
-begin
-  PABCSystem.Write(Self, vals);
-end;
-
 // -----------------------------------------------------
 //                TypedFile & BinaryFile methods
 // -----------------------------------------------------
@@ -5212,6 +5207,11 @@ begin
   PABCSystem.Seek(Self, n);
 end;
 
+procedure BinaryFile.Write(params vals: array of object);
+begin
+  PABCSystem.Write(Self, vals);
+end;
+
 // -----------------------------------------------------
 //                  Eoln - Eof
 // -----------------------------------------------------