1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type RMeinRecord = packed record
       String1 : String;
       String2 : String;
       Integer1 : Integer;
     end;
     PMeinRecord = ^RMeinRecord;

procedure XYZ;
var pData : PMeinRecord;   // hoffe, es fällt auf, dass ich die P-variante nehme
begin
  New(pData);
  pData.String1 := 'Hallo';   // das ist FALSCH. pData ist nur der Zeiger zur Adresse, wo die Daten sind
  pData^.String1 := 'Hallo';  // das ist RICHTIG, Du hast das taxi genommen, um zur Adresse zu fahren und kannst das haus betreten :)
  Dispose(pData);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type TZeiger = ^TKnotenh;
     TFibHeap = record
                  min: TZeiger;
                  n: integer;
                end;
     TKnotenh = record
                 p, // Vater
                 kind, // Zeiger auf ein beliebiges Kind
                 links, // zeiger auf linken Bruder
                 rechts: TZeiger; // Zeiger auf rechten Bruder
                 grad: integer; // Anzahl der Kinder
                 marke: boolean; // gibt an, ob der Knoten ein Kind verloren hat
                 d: real; // enthält den Abstand zum Startknoten s => Sortierschlüssel!
                 nr: integer; // Knotennummer des Knotens v
                 pred: integer; // Vorgänger auf dem kürzesten s-v Pfad
               end;                    

1:
2:
3:
4:
5:
6:

var Q: TFibHeap;
begin
  Q := make_fib_heap;
  [...]
  dispose(Q.min);
end                    

1:
2:
3:
4:

     TFibHeap = record
                  min: TZeiger;
                  n: integer;
                end;                    

1:
2:
3:
4:
5:
6:

var Q: TFibHeap;
begin
  Q := make_fib_heap;
  [...]
  dispose(Q.min);
end