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.