Проблема с взаимодействием динамической и статической памяти - обращение к статической переменной

[Comst95]

Здравствуйте!
Помогите решить проблему!
Задача такая: написать сортировку бинарным деревом, так что бы данные читались из текстового файла.
В текстовом файле:
"<имя> <число>"
и таких строчек неограниченное количество (собственно поэтому и нужно бинарное дерево).
Программа у меня написана, но есть проблема с чтением из файла. Я не знаю как обратится из динамической памяти к статической переменной.
Собственно, вот исходник (код):
[PASCAL]
type pointer=^pokupka;
pokupka= record
nazv:string;
cena:integer;
leftointer;
rightointer;

end;
var root,tempointer;
c:char;
m:integer;
input,output:text;
i,code: integer;
s: string;
procedure vvod(root,tempointer); {здесь идет сортировка деревом}
begin
if ((root^.cena>=temp^.cena) and (root^.left<>nil)) then
vvod(root^.left,temp);

if ((root^.cena>=temp^.cena) and (root^.left=nil)) then
root^.left:=temp;

if ((root^.cena<temp^.cena) and (root^.right<>nil)) then
vvod(root^.right,temp);

if ((root^.cena<temp^.cena) and (root^.right=nil)) then
root^.right:=temp;
end;

procedure vuvod(rootointer); {здесь вывод дерева}
begin
if root^.left<>nil then
vuvod(root^.left);

writeln(root^.nazv,' ',root^.cena);

if root^.right<>nil then
vuvod(root^.right);
end;

begin
new(root);
root:=nil;
i:=0;
assign(input,'nput.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
while not eof(input) do begin

repeat
read(input,c);
if c<>' ' then s:=s+c;
until c=' ';
temp^.nazv:=@s; {//////////проблема начинается здесь////////}
read(input,m);
temp^.cena:=m;
new(temp);
temp^.left:=nil;
temp^.right:=nil;
if root=nil then root:=temp
else vvod(root, temp);
end;
vuvod(root);
end.
[/PASCAL]

[ViktorR]

1. Наверное не следует переопределять резервные слова.
Pointer - безтиповой указатель.

type   pnode = ^pokupka;
      pokupka = record
          nazv: string;
          cena: integer;
          left : pnode;
          righ : pnode;
      end;
var root,temp : pnode;

И так в других местах.
2. В том месте где идёт присвоение строки следует указать саму строку, а не адрес, с которого она начинается, поскольку поле nazv имеет тип string.

temp^.nazv := s;

Как-то так ...