Массив записей, содержащий таблицу Д. И. Менделеева

type elem=record
          nom:byte; //номер
          sim:string[2];//символ
          naz:string[15];//название
          ves:real;//атомный вес

const n=118;

var tm:array[1..n] of elem;

type
  Element = record
    ///Количество протонов в ядре атома
    Protons: integer;
    ///Номер периода, кол-во уровней электронной оболочки
    Period: integer;
    ///Группа по старой классификации
    Group: string;
    ///Группа по новой классификации
    GroupNew: integer;
    ///Краткое название элемента
    Big: string;
    ///Название
    Latin: string;
    ///Название на русском
    Rus: string;
    ///Степени окисления
    Oxidation: array of shortint;
    ///Атомная масса
    AtomicMass: real;
    
    public constructor (n, p: integer; g, b, l, r: string; gn: integer; am: real; params o: array of shortint);
    begin
      Protons := n;
      Period := p;
      Group := g;
      Big := b;
      Latin := l;
      Rus := r;
      GroupNew := gn;
      AtomicMass := am;
      Oxidation := o;
    end;
  end;
  
 
var Els := new Element[10](
    new Element(1, 1, 'IA', 'H', 'Hydrogenium', 'Водород', 1, 1.008, -1, 0, +1),
    new Element(2, 1, 'VIIIA', 'He', 'Helium', 'Гелий', 18, 4.0026, 0),
    new Element(3, 2, 'IA', 'Li', 'Lithium', 'Литий', 1, 6.94, 0, +1),
    new Element(4, 2, 'IIA', 'Be', 'Beryllium', 'Бериллий', 2, 9.0122, 0, +2),
    new Element(5, 2, 'IIIA', 'B', 'Borum', 'Бор', 13, 10.81, -3, 0, +3),
    new Element(6, 2, 'IVA', 'C', 'Carboneum', 'Углерод', 14, 12.011, -4, -3, -2, -1, 0, +1, +2, +3, +4),
    new Element(7, 2, 'VA', 'N', 'Nitrogenium', 'Азот', 15, 14.007, -3, -2, -1, 0, +1, +2, +3, +4, +5),
    new Element(8, 2, 'VIA', 'O', 'Oxygenium', 'Кислород', 16, 15.999, -2, -1, 0, +1, +2),
    new Element(9, 2, 'VIIA', 'F', 'Fluorum', 'Фтор', 17, 18.9984, -1, 0),
    new Element(10, 2, 'VIIIA', 'Ne', 'Neon', 'Неон', 18, 20.1797, 0)
  );
 
begin
  
end.

function FindNextStr(self, before: string): string; extensionmethod;
begin
  var i1 := self.IndexOf(before);
  var i2 := self.IndexOf('<',self.IndexOf('>', i1));
  var l := i2-i1-before.Length;
  Result := self.Substring(i2-l,l);
end;
 
begin
  var wc := new System.Net.WebClient;
  System.Net.ServicePointManager.SecurityProtocol := System.Net.SecurityProtocolType.Tls12;
  
  var els := ArrGen(
    118,
    i->
    begin
      writeln($'Downloading element #{i+1}');
      var num := (i+1).ToString.PadLeft(3,'0');
      var text := wc.DownloadString($'https://education.jlab.org/itselemental/ele{num}.html');
      
      var _id    := text.FindNextStr('<p id="boxatomicnumber">');
      var _sym   := text.FindNextStr('<p id="boxchemicalsymbol">');
      var _name  := text.FindNextStr('<p id="boxelementname">');
      var _mass  := text.FindNextStr('<p id="boxatomicmass">');
      
      Result := new class(
        id := _id.ToInteger,
        sym := _sym,
        name := _name,
        mass := _mass.ToReal
      );
      
    end
  );
  
  els.PrintLines;
end.

function FindNextStr(self, before: string): string; extensionmethod;
begin
  var i1 := self.IndexOf(before);
  var i2 := self.IndexOf('</text>', self.IndexOf('</text>', i1));
  var l := i2-i1-before.Length;
  Result := self.Substring(i2-l,l);
end;
 
begin
  var wc := new System.Net.WebClient;
System.Net.ServicePointManager.SecurityProtocol := System.Net.SecurityProtocolType.Tls12;
  
  var els := ArrGen(118, i->begin
      writeln($'Downloading element #{i+1}');
      var num := (i+1).ToString.PadLeft(3,'0');
var text := wc.DownloadString($'https://education.jlab.org/itselemental/ele{num}.html');
      
var _id  := text.FindNextStr('atomic-number-specific">');
var _sym := text.FindNextStr('chemical-symbol-specific">');
var _name:= text.FindNextStr('chemical-name-specific">');
var _mass:= text.FindNextStr('atomic-weight-specific">');
 
      Result := new class(
        id := _id.ToInteger,
        sym := _sym,
        name := _name,
        mass := _mass.ToReal
      );
    end
  );writeln();
  els.PrintLines;
end.