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.