//Aquí el bloque declarativo
 
const
max=100;
max1=10;
nummax=100;
numle=15; //Numero maximo de letras
numpal=25; // Numero maximo de palabras
ttexto=250; //Numero total de texto
 
type
d1=1..max1;
matriz=array[d1,d1] of integer;
 
cadena=string[ttexto];
registrop=record
palabra:string[numle];
tmax:integer;
end;
 
vector1=array[1..numpal] of registrop;
 
// Y aquí la función en la que tengo la duda
 
Function media_car(v:vector1;t_car,cont:integer):real;
begin
for i:=1 to contador_palabras do
begin
writeln('La media de caracteres de la palabra numero ',i,' es: ',(length(vector[i].palabra)-1));
total_caracteres:=total_caracteres+(length(vector[i].palabra)-1);
end;
media_car:=total_caracteres/contador_palabras;
 
end;
 
//Por ultimo el código donde se llama a esta función:
 
2:begin
writeln('Media de caracteres');
writeln;
total_caracteres:=0;
mediacar:=media_car(vector,total_caracteres,contad or_palabras); // Aqui llaamamos a la funcion para calcular la media de caracteres
writeln;
writeln('La media exactamente es: ',mediacar:0:2);
writeln;
write('Seguimos? ');
answer:=respuesta;
 
end;