type mutat = ^elem;
elem = record
              x,y:Byte;
              d:Word;
              kov:mutat;
        end;
var elso:mutat;

procedure beszur(var e:mutat;x,y:Byte;d:Word);
 var p,uj:mutat;
 begin
  new(uj);
  uj^.x:=x;
  uj^.y:=y;
  uj^.d:=d;
  uj^.kov:=nil;
  if e=nil then e:=uj
   else
    begin
     p:=e;
     while p^.kov<>nil do p:=p^.kov;
     p^.kov:=uj;
    end;
 end;

 procedure torol(var e:mutat);
 var p:mutat;
 begin
  p:=e;
  if e=nil then WriteLn('Ures')
   else
    begin
     e:=e^.kov;
     dispose(p);
    end;
 end;

begin
 elso:=nil;