Necesito ingresar 3 vectores en una matriz. Me quede en la function "cargar" para insertar los vectores. Pero no se de que manera hacerlo.

A continuación mi código:

    program ejer51;
    uses crt;
    
    TYPE
    	vtexto = array [1..5] of string;
    	ventero = array [1..5] of integer;
    	tmatriz = array [1..3,1..5] of string;
    
    VAR
    	vApeNom:vtexto;
    	vEdad:ventero;
    	vAnioCarrera:ventero;
    	mAlumnos:tmatriz;
    
    procedure nomApe (var a:vtexto);
    var i:integer;
    	begin
    		for i:=1 to 5 do
    			begin
    				write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
    				writeln;
    			end;
    	end;
    
    procedure edad(var b:ventero);
    var i:integer;
    	
    	begin
    		for i:= 1 to 5 do
    			begin
    				repeat
    					write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
    					writeln;
    						if (b[i] < 18) or (b[i] > 80) then
    							writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
    				until (b[i] >= 18) and (b[i] <= 80);
    			end;
    	end;
    
    procedure comienzo(var c:ventero);
    var i:integer;
    	begin
    		for i:= 1 to 5 do
    			begin
    				repeat
    					 write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
    						if (c[i] < 2000) or (c[i] > 2018) then
    							writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
    				until (c[i] >= 2000) and (c[i] <=2018);
    			end;
    	end;
    
    function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
    var i,j:integer;
    	begin
    		for i:=1 to 3 do
    			for j:=1 to 5 do
    				begin
    					d[i,j]:=vApeNom+vEdad+vAnioCarrera;
    				end;
    		
    	end;
    
    begin
    	nomApe(vApeNom);
    	edad(vEdad);
    	comienzo(vAnioCarrera);
    	
    
    end.

---

    program ejer51;
    uses crt;
    
    TYPE
    	vtexto = array [1..5] of string;
    	ventero = array [1..5] of integer;
    	tmatriz = array [1..3,1..5] of string;
    
    VAR
    	vApeNom:vtexto;
    	vEdad:ventero;
    	vAnioCarrera:ventero;
    	mAlumnos:tmatriz;
    
    procedure nomApe (var a:vtexto);
    var i:integer;
    	begin
    		for i:=1 to 5 do
    			begin
    				write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
    				writeln;
    			end;
    	end;
    
    procedure edad(var b:ventero);
    var i:integer;
    	
    	begin
    		for i:= 1 to 5 do
    			begin
    				repeat
    					write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
    					writeln;
    						if (b[i] < 18) or (b[i] > 80) then
    							writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
    				until (b[i] >= 18) and (b[i] <= 80);
    			end;
    	end;
    
    procedure comienzo(var c:ventero);
    var i:integer;
    	begin
    		for i:= 1 to 5 do
    			begin
    				repeat
    					 write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
    						if (c[i] < 2000) or (c[i] > 2018) then
    							writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
    				until (c[i] >= 2000) and (c[i] <=2018);
    			end;
    	end;
    
    function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
    var i,j:integer;
    	begin
    		for i:=1 to 3 do
    			for j:=1 to 5 do
    				begin
    					d[i,j]:=vApeNom+vEdad+vAnioCarrera;
    				end;
    		
    	end;
    
    begin
    	nomApe(vApeNom);
    	edad(vEdad);
    	comienzo(vAnioCarrera);
    	
    
    end.