type PRec=^TRec;
TRec= record
mint: integer;
mnext: PRec;
end;
var L:PRec;
procedure InitL(ai: integer);
var p:PRec;
begin
New(p);
p^.mint:=ai;
p^.mnext:=L;
L:=p;
end;
procedure AddL;
var p1,p2:PRec;
k:integer;
begin
if Assigned(L) then
begin
p1:=L;
p2:=p1;
While Assigned(p1^.mnext) do
begin
p2:=p1;
p1:=p1^.mnext;
end;
end;
k:=p1^.mint;
p2^.mnext:=nil;
Dispose(p1);
InitL(k);
end;
procedure PrintL;
var q:PRec;
begin
q:=L;
While Assigned(q) do
begin
Write(q^.mint:4);
q:=q^.mnext;
end;
end;
var i: integer;
begin
L:=nil;
for i:=1 to 10 do
InitL(i);
PrintL;
Writeln;
AddL;
PrintL;
Readln;
end.