[Xmas]

No sabia donde postear disculpen si no es el lugar indicado!!!
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...

 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.