, , .
:
() ;
() ;
;
.
. -. nil.
, : type ref =^Elem; Elem=record inf: integer; next: ref end; ref Elem |
: ( Elem), , type.
( ).
, . , , : p:=Head.
:
p ;
p^ , p;
p^.inf ;
p^.next , ;
p^.next^.inf , , ;
p^.next^.next , , .
:
var Head,p,pred,q,pmax:ref;
x,A,tmp:integer;
Head:=nil
new(q); //
q^.inf:=x; //
q^.next:=Head; //
Head:=q; //
p:=Head; //
Head:=p^.Next;// Head ,
Dispose(p); // ,
p:=nil;
, .