Работа с массивом Record и типизированным файлом

const
  ТекстовыйСписок = 'sp.txt';
  DataBase = 'spis.sqp';
 
type
  tRec = record
    Ф : String[5];
    Д : String[15];
    
    constructor;
    begin
    end;
 
    constructor (F, D : String);
    begin
      Ф := F; Д := D;
    end;
    
    constructor (p : tRec);
    begin
      Ф := p.Ф; Д := p.Д;
    end;
  end;
 
function ReadFromTXT : array of tRec;
begin
  var a := New List<tRec>;
  foreach var s in ReadLines(ТекстовыйСписок) do
    try
      var p := s.ToWords;
      a.Add( New tRec(p[0], p[1].ToLower) );
    except
    end;
  Result := a.ToArray;
end;
  
procedure WriteToSqp(a : array of tRec);
begin
  var f : File of tRec;
  Rewrite(f, DataBase); foreach var p in a do Write(f, p); Close(f);
end;
 
function ReadFromSqp : array of tRec;
begin
  var f : File of tRec;
  Reset(f, DataBase);
  SetLength(Result, f.Size);
  for var i := 0 to f.Size-1 do Read(f, Result[i]);
end;
 
begin
  var a := ReadFromTXT;
  WriteLn('Создан список:'); foreach var p in a do WriteLnFormat('{0:-10} - {1}', p.Ф, p.Д);
  WriteToSqp(a);
  
  var b := ReadFromSqp;
  WriteLn('Список прочитан из файла:'); foreach var p in b do WriteLnFormat('{0:-10} - {1}', p.Ф, p.Д);
  
  Write('Должности: '); b.Select(p->String(p.Д)).Distinct.Print(', '); WriteLn('.');
end.