Zeug

program zeiger_1;

Type TEintrag = record
          name : string;
          konto : longint;
          end;
    Tzeiger=^TEintrag;
Var einEintrag, einAnderereintrag: TZeiger;

begin
     New(einEintrag);
     New(einAndererEintrag);
     readln(einEintrag^.name);
     readln(einEintrag^.konto);
     einAndererEintrag^.name:=einEintrag^.name;
     einAndererEintrag^.konto:=einEintrag^.konto;
     Writeln(einAndererEintrag^.name);
     Writeln(einAndererEintrag^.konto);
     Dispose(einEintrag);
     Dispose(einAndererEintrag);
     readln;
end.