Pascal/Turbo Pascal - Ayuda con un programa

Disculpen debo de realisar un programa que calcule el promedio de unas calificaciones pero lo que quiero es que el usuario ponga el numero de materias que lleba para asi poder calcularla

espero que me puedan ayudar

Easy man... :)

var
Mateiras, Calificacion, Sum, Promedio, i: Integer;
begin
Write('Cantidad de materias?: ');
ReadLn(Materias);
for i:=1 to Materias do
begin
Write('Ingrese la calificación de la materia ',i,': ');
ReadLn(Calificacion);
Sum:=Sum+Calificacion;
end;
Promedio:=Sum div Materias;
WriteLn('El promedio es: ', Promedio);
end.

Gracias me ha s ayudado bastante