Pascal/Turbo Pascal - Escribir un programa que solicite 15 números, los almacene en un arreglo y calcule el promedio

uses crt;

var

	num:array[1..15] of integer;

	suma,i:integer;

	promedio:real;

begin

	clrscr;

	suma:=0;

	promedio:=0;

	//Ingreso de datos al arreglo

	for i:=1 to 15 do begin

		write('Ingrese # ',i,': ');

		readln(num[i]);

		suma:=suma+num[i];

	end;

	promedio:=suma/15;

	writeln('El promedio de los 15 numeros es: ',promedio:5:2);

end.