Rozumíte poitrům?

{Společná deklarace}

Type PUzel= ^TUzel;

     TUzel= record
	    Info: integer;
            Next: PUzel;
            end;
var: P,Q: PUzel;
     
{======== priklad 1 ============}

var U: TUzel;

1/ P:= @U; 
2/ new(P);

{jaký rozdíl je v práci s proměnnou P?, co když je U lokální v proceduře?}





{======== priklad 2 ============}


new(P); new(Q);
P^.Info:= 2;
Q^.Info:= 4;
P:= Q;       {druha varinta P^:= Q^}
Q^.Info:= 5
write(P^.Info, ' ', Q^.Info);

{co vypise ve jedne a co ve druhe variante?}  



{======== priklad 3 ============}


procedure Neco (PP:PUzel); {predano hodnotou!}      
begin
  if PP  <> nil then PP^.Info:= 3
end;

{hlavni program}
new(P);
P^.Next:= nil;
P^.Info:= 5;
Neco(P);
write(P^.Info);

{co se vypise?}