Работа с записями в Pascal

uses
    crt;
type
   tlist=^list;
   list=record
               inf:integer;
               adr:tlist;
         end;
var
   f:file of integer;
   stak1,stak2:tlist;
   i,c,x:integer;
Procedure viv_f;
begin
     writeln('Ñîäåðæàíèå èñõîäíîãî ôàéëà:');
     reset(f);
     while not eof(f) do
           begin
                read(f,x);
                write(x,' ');
           end;
     Writeln;
end;
procedure stek(var stk:tlist; x:integer );
var
   tmp:tlist;
begin
     new(tmp);
     tmp^.inf:=x;
     tmp^.adr:=stk;
     stk:=tmp;
end;
procedure dobav;
begin
     stak1:=nil;
     stak2:=nil;
     reset(f);
     repeat
           read(f,x);
           stek(stak1,x)
     until eof(f);
    close(f);
end;
begin
     clrscr;
     assign(f,'d:\f.val');
     dobav;
     viv_f;
     writeln('poloshitelnie elemnti: ');
     repeat
     if stak1^.inf > 0 then
        begin

                write(stak1^.inf,' ')
        end
     else
                stek(stak2,stak1^.inf);
     stak1:=stak1^.adr;
     until stak1=nil;
     writeln;
     writeln('nepoloshitelnie elemnti: ');
     repeat
           write(stak2^.inf,' ');
           stak2:=stak2^.adr
     until stak2=nil;
readkey;
end.