Pascal/Turbo Pascal - Registros, ¿como usar una función para cargar elementos aun registro?

{Mira la función como comentas no se puede pasar bloques de datos pero si puede pasar las posiciones a saltar en el array según las cargas del registro como apreciaras aquí}

 program cargaregistro;

  uses

    crt;

  type

    datos = record

          num1 : integer;

          num2 : integer;

          num3 : integer;

        end;

   arraytem = array[0..11] of integer;

   var

     dt : arraytem;

     reg : datos;

     cont : integer;

  function tamareg(tt : arraytem) : integer;

  begin

     reg.num1 := tt[cont + 0];

     reg.num2 := tt[cont + 1];

     reg.num3 := tt[cont + 2];

     tamareg := cont + 3;

  end;

 begin

    clrscr;

    cont := 0;

    writeln('**** Registro cargados co valores del array ****');

    writeln;

   repeat

    dt[cont + 0] := 40 + cont;

    dt[cont + 1] := 60 + cont;

    dt[cont + 2] := 90 + cont;

    cont := tamareg(dt);

    if cont < 12 then

    begin

    writeln(reg.num1,'  ',reg.num2,'  ',reg.num3);

    end;

   until cont > 12;

   writeln;

   writeln('   Pulse Una Tecla ');

   readkey;

 end.