Опять динамика. Необработанное исключение: System.AccessViolationException...

type
  ref = ^node;
  node = record
    left, right: ref;
    s: string := '';
    col: integer;
  end;
  m2 = array[0..65535]of ref;
 
var
  m: m2;
  m1: array[#0..#65535]of integer;
  i1: integer;
 
procedure mysort(var m: m2);
var
  s: string;
  col: integer;
  f := false;
  t: integer := 1;
  left, right: ref;
begin
  while not f do
  begin
    f := true;
    for i: integer := 0 to 65535 - t do
    begin
      if m[i]^.col < m[i + 1]^.col then begin
        s := m[i + 1]^.s;
        col := m[i + 1]^.col;
        right := m[i + 1]^.right;
        left := m[i + 1]^.left;
        m[i + 1]^.s := m[i]^.s;
        m[i + 1]^.col := m[i]^.col;
        m[i + 1]^.left := m[i]^.left;
        m[i + 1]^.right := m[i]^.right;
        m[i]^.col := col;
        m[i]^.s := s;
        m[i]^.left := left;
        m[i]^.right := right;
        f := false;
      end;
    end;
    inc(t);
  end;
end;
 
procedure createtree;
var
  f: ref;
var
  i: integer;
begin
  while i <> i1 - 1 do
  begin
    new(f);
    f^.left := m[0 + i];
    f^.right := m[0 + i + 1];
    f^.s := m[0 + i]^.s + m[0 + i + 1]^.s;
    f^.col := m[0 + i]^.col + m[0 + i + 1]^.col;
    m[0 + i + 1] := f;
    f := nil;
    inc(i);
  end;
end;
 
procedure loadfile(s: string);
var
  f: file of char;
  a: char;
begin
  if fileexists(s) and (s <> getexefilename) then begin
    assign(f, s);
    reset(f);
    while not eof(f) do
    begin
      read(f, a);inc(m1[a]);
    end;
    close(f);
    var a1: char := #0;
    for i: integer := 0 to 65535 do
    begin
      new(m[i]);
      if m1[a1] > 0 then begin
        m[i]^.col := m1[a1];
        m[i]^.s := a1;
      end;
      inc(a1);
    end;
    mysort(m);
    for i: integer := 0 to 65535 do
    begin
      if m[i]^.col > 0 then writeln(m[i]^.col)
      else begin
        i1 := i - 1;
        break;
      end;
    end;
  end else if s = getexefilename then writeln('Нельзя заархивировать используемую программу!')
  else writeln('Такого файла не существует!');
end;
 
begin
  loadfile('in.txt');
  createtree;
  readln;
end.

new(m[i]);
m[i]^.left := nil;
m[i]^.right := nil;
m[i]^.col := 0;
m[i]^.s := '';

type
  PMy = ^TMy;
  TMy = record
    Next: PMy;
  end;
 
var
  A: PMy;
 
begin
  New(A);
  Writeln(A^.Next = nil); // True
end.