Программа со списками

const
  nameExt = '.dat';
 
procedure WriteList(name : String; L : List<integer>);
begin
  var f : File of Integer; Rewrite(f, name);
  foreach var v in L do Write(f, v);
  Close(f);
end;
 
procedure OutList(msg : String; L : List<integer>);
begin
  WriteLn(msg);
  L.Println(', ');
end;
 
procedure InputList;
begin
  var n := ReadLnInteger('Размер списка:  n =');
  var L := New List<integer>;
  var v : Integer;
  Write('Введите через пробел элементы последовательности: ');
  for var i := 1 to n do
    begin
      Read(v); L.Add(v);
    end;
  WriteList('first' + nameExt, L);
  OutList('Введена и сохранена в файл first' + nameExt + ' последовательность:', L);
end;
  
function ReadList(name : String) : List<integer>;
begin
  Result := New List<integer>;
  var f : File of Integer; Reset(f, name);
  var v : Integer;
  while Not EOF(f) do begin Read(f, v); Result.Add(v); end;
  Close(f);
end;
 
function FirstDigit(n : Integer) : Integer := (n > 10 ? FirstDigit(n div 10) : n);
 
procedure CutList;
begin
  if Not System.IO.File.Exists('first' + nameExt) then
    begin
      WriteLn('Файл с исходным списокм не найден.');
      Halt;
    end;
  var L := ReadList('first' + nameExt);
  var a : array [0..9] of List<integer>;
  for var i := 0 to 9 do a[i] := New List<integer>;
  foreach var v in L do a[FirstDigit(v)].Add(v);
  for var i := 0 to 9 do
    if a[i].Count > 0 then
      begin
        WriteList(IntToStr(i) + nameExt, a[i]);
        OutList('Создана и сохранена в файл ' + i + nameExt + ' последовательность:', a[i]);
      end
    else if System.IO.File.Exists(IntToStr(i) + nameExt) then
      System.IO.File.Delete(IntToStr(i) + nameExt);
end;
 
procedure GlueList;
begin
  var L := New List<integer>;
  for var i := 0 to 9 do
    if System.IO.File.Exists(IntToStr(i) + nameExt) then
      begin
        var t := ReadList(IntToStr(i) + nameExt);
        foreach var v in t do L.Add(v);
      end;
  WriteList('last' + nameExt, L);
  OutList('Все последовательности соедены в одну и сохранены в файл last' + nameExt + ':', L);
end;
 
begin
  InputList;
  CutList;
  GlueList;
end.