{$codepage UTF8} TYPE TRegistro=Record C01:byte; C02:double; End; TPunteroReg=^TRegistro; VAR Registros:TPunteroReg; i:byte; BEGIN getmem(Registros,SizeOf(TRegistro)*5); Writeln('Ingrese registros'); Randomize; for i:=0 to 4 do Begin Registros[i].C01:=Random(9); Registros[i].C02:=Random End; for i:=0 to 4 do Begin Writeln('Registros[',i,'].C01=',Registros[i].C01:8); Writeln('Registros[',i,'].C02=',Registros[i].C02:8:4) End; freemem(Registros) END.