UTNianos

Crear un vector que represente las ventas para cada uno de los días de la semana y permitir:
a) Modificar el contenido de un día en particular
b) Calcular cuánto se recaudó el fin de semana
c) Mostrar qué porcentaje representa el punto b sobre el total recaudado en la semana
d) En qué día se vendió menos?


---------------------
Todo esto claramente con el cuerpo del programa main solo con la inicializacion de un menu de opciones.
Si alguno me puede decir en que falla el procedure, de carga de datos que al parecer no me esta cargando nada, porque cuando quiero modificarlo, me aparece vacío.

//Cargar valores en array
procedure CargarValores(var arreglo_vacio:semana);

var
i:integer;
value:real;

begin
clrscr;
for i:=1 to length do
begin
write('Ingrese lo recudado en el dia ',i,': ');
readln(value);
clrscr;
end;
write('Presione "Enter" para volver al menu');
readkey;
Menu(arreglo_vacio);
end;

//Modificar valores en array
procedure ModificarValores(var arreglo_modificar:semana);
var
day:integer;
amount:real;
resp:char;
begin
clrscr;
write('Desea modificar un dia de la semana? (s/n)');
readln(resp);
while resp<>'n' do
begin
clrscr;
write('Ingrese el numero del dia que quiere modificar');
readln(day);
case day of
1:
begin
writeln('Modificaion del dia Lunes, con valor actual = $',trunc(arreglo_modificar[1]) ,' ingrese el monto correcto a asignar: ');

readln(amount);
arreglo_modificar[1]:=amount;
end;
2:
begin
writeln('Modificaion del dia Martes, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[2]:=amount;
end;
3:
begin
writeln('Modificaion del dia Miercoles, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[3]:=amount;
end;
4:
begin
writeln('Modificaion del dia Jueves, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[4]:=amount;
end;
5:
begin
writeln('Modificaion del dia Viernes, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[5]:=amount;
end;
6:
begin
writeln('Modificaion del dia Sabado, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[6]:=amount;
end;
7:
begin
writeln('Modificaion del dia Domingo, ingrese el monto correcto a asignar: ');
readln(amount);
arreglo_modificar[7]:=amount;
end;
end;
writeln();
write('Desea modificar otro dia? (s/n)');
readln(resp);
end;

end;

Un poco complicado de seguir, pero pareciera que en cargarValores no estás guardando los valores ingresados en ningún lado.
Faltaría algo del estilo (pseudocódigo):

for i=1 to i=7
escribir("Ingrese lo recaudado el día: ", i)
leer(dato)
vector[i] = dato
fin

Besis