Type tpStruktur = ^tStruktur;
     tStruktur  = Record
                    A : Word;
                    B : Word
                  End;

Var Struktur : tpStruktur;

Procedure cbvContent(X:tpStruktur;Y,Z:Word);
Begin
  X^.A := Y;
  X^.B := Z
End;

Procedure cbrContent(Var X:tpStruktur;Y,Z:Word);
Begin
  X^.A := Y;
  X^.B := Z
End;

Begin
  New(Struktur);
  cbvContent(Struktur,10,20);
  WriteLn(Struktur^.A);
  WriteLn(Struktur^.B);
  cbrContent(Struktur,30,40);
  WriteLn(Struktur^.A);
  WriteLn(Struktur^.B);
  Dispose(Struktur)
End.