нельзя вызвать New так как невозможно вычислить размер записи

[Madmaxisss]

да абс.нэт умеет выносить мозг))

FUNCTION  FUN_TR: tree;  
VAR
   t: tree;
BEGIN
       
              new(t); // здесь ошибка. Почему?
              t^.sss:=s;
              t^.pll:=nil;
              t^.prr:=nil;
              FUN_TR:=t;

END;

нельзя вызвать New так как невозможно вычислить размер записи

[BDA]

Покажите, как описали tree.

[Madmaxisss]

Покажите, как описали tree.

TYPE 
    tree=^ptree;
    ptree=record
                sss: string; 
                pll: tree;    
                prr: tree;    
END;

Var s: string;

а вот как описывается в абсе.нэт NEW

procedure New<T>(var p: ^T); 
        Выделяет динамическую память размера sizeof(T) и возвращает в переменной p указатель на нее. Тип T должен быть размерным

Как задать размерность? не пойму

[volvo877]

Как задать размерность?

Ограничить длину строки. Например, так:

TYPE 
   tree = ^ptree;
   ptree =
   record
      sss: shortstring; 
      pll: tree;    
      prr: tree;    
   end;

[Madmaxisss]

volvo877, молодец молодец, оказывается все просто)) можно даже и

string[256]

Спасибо тебе volvo877 выручил))