Ayuda Urgente ej, de pascal

[Xmas]

Hola a todos tengo un problema con un programa en pascal estoy intentando hacer un programa que me calcule 3 materias y 3 notas encada materia, con sus respectivos cortes. Sacar el promedio de cada materia despues cargar la matriz y sacar el promedio final si me entienden.. Pero la parte de la matriz y el promedio final por mas que lo intento no me sale ayuda porfa. Esto es lo que llevo estaria muy agradecido si alguien me puede ayudar...

Spoiler:

Program promedio_materias; Uses wincrt; Type Vector=array [1..4] of string; Matriz=array [1..4,1..3] of real; Promedio=array [1..4] of real; Var Vecmateria: vector; Mat: matriz; P: promedio; I, f: integer; suma: real; Begin For I:=1 to 3 do Begin Writeln ('Indicar Materia', I); Readln (vecmateria[i]); End; vecmateria[4]:= 'Promedio'; For I:=1 to 3 do begin Suma:=0; For f:=1 to 3 do Begin Writeln ('Indicar nota de la materia: ', vecmateria[i], ' En el corte Numero: ', f ); Readln (mat[I,f]); suma:=mat[I,f]+suma; p[i]:=suma/3; end; for I:= 1 to 3 do Begin writeln ('El promedio es ', p[i]:2:2); end; writeln; end; end.

[Joe Rod]

vaya que me pusiste a pensar, también me estoy iniciando en esto de la programación, aquí te lo terminé:

Spoiler:

Program promedio_materias; Uses wincrt; type vector=array [1..3] of string; matriz=array [1..3,1..3] of real; promedio=array [1..3] of real; var vecmateria: vector; mat: matriz; p: promedio; i, f: integer; sumas: array [1..3] of real; suma: real; BEGIN for I:=1 to 3 do Begin Writeln ('Indicar Materia', I); Readln (vecmateria[i]); End; for i:= 1 to 3 do begin For f:=1 to 3 do Begin Writeln ('Indicar nota de la materia: ', vecmateria[i], ' En el corte Numero: ', f ); Readln (mat[i,f]); end; end; for i:= 1 to 3 do begin suma:= 0; suma:= suma + mat[i, 1] + mat[i, 2] + mat[i, 3]; sumas[i]:= suma; end; for i:=1 to 3 do begin p[i]:= sumas[i]/3; end; for i:= 1 to 3 do Begin writeln ('El promedio de: ' ,vecmateria[i], 'fue de:' ,p[i]:2:2); end; readln; END.

creo que es muy notable lo que hice, en dado caso de que no lo entiendas no dudes en poner tu duda acá y te lo explico con detalle,
Saludos