Проблема с изменением значений в динамической структуре

[Utkin]

Ну да, ты описал какой должна быть переменная, а где сама переменная? Вот для примера. Ты делаешь так:
Хочу посадить дерево, это будет саженец дуба, метра полтора, можно с почками . И все. Само дерево ты не сажаешь. А потом тебе вдруг надумалось его сфотографировать. Вот ты смотришь на снимок и говоришь - Ахтунг! Где дерево?

насколько сложно бывает что-то объяснить дураку (в данном случае мне)

Такое отношение к самому себе вредно и рождает всякие нехорошие комплексы. Дурак, тот кто пришел на форум за решением и не желает разбираться в вопросе.

ЗЫ. Все что в секции type не существует. Там описывается кто должен существовать (и иногда как). Рождение происходит в секции var, и в твоем случае после new.

[whatever]

Ну что, мужики, спасибо большое. написал вот так:

program nevazhno;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  PTree=^TTree;
  TTree=record
    sod:integer;
    L,R:PTree;
  end;

VAR
  T:textfile;
  S:PTree;

procedure build_S(var F:textfile; var Q:PTree);
begin
  while not EOF(F) do
    begin
      if Q<>nil then
        begin
//          Q^.R^.L:=Q;    !!!
          build_S(F,Q^.R);
        end
      else
        begin
        new(Q);
          readln(F,Q^.sod);
        end

    end;
end;

BEGIN
  assign(T,'source.txt');
  {$i-}
  reset(T);
  {$i+}
  if IOResult<>0 then
    begin
      writeln('file not found');
      readln;
      HALT;
    end;
  build_S(T,S);
  writeln(S^.sod);
  writeln(S^.R^.sod);
  writeln(S^.R^.R^.sod);
  readln;
END.

Под конец подряд выводит эти числа из текстовика, все норм.
Но опять таки проблема, под знаком "!!!". Ссылки на правые (R) элементы есть, а как сделать на левые (L)? Ну тоесть, чтобы S^.sod ~ S^.R^.L^.sod?

Как я понимаю, это опять изза того, что память не выделил под L. Можно как-то сделать это по месту, или отдельную процедуру писать придется?

[Stilet]

а как сделать на левые

Всмысле?
Короче говоря, если тебе нужен двусвязанный список рекомендую ознакомится с:
http://www.programmersforum.ru/showthread.php?t=47462
http://www.programmersforum.ru/showthread.php?t=87357

[whatever]

Да похоже действительно не нужен он мне, односвязного хватает.
Спасибо за помошь, разобрался, пошел творить :D