Pascal/Turbo Pascal - calcular el promedio de 50 valores almacenados en un vector

uses crt;

var

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

	i,s,mayor:integer;

	prom:real;

begin

	clrscr;

	randomize; {inicializa semilla para numeros aleatorios}

	s:=0; {se almacena la suma de los numeros}

	mayor:=0; {contador de numeros > que el promedio}

	for i:=1 to 50 do begin

		num[i]:=random(1000); {genera un numero aleatorio}

		s:=s + num[i]; {sumatoria de los 50 numeros}

	end;

	prom:=s/i; {promedio de los 50 numeros}

	writeln('Lista de numeros mayores que el promedio');

	for i:=1 to 50 do begin

		if num[i] > prom then begin {se comparan los numeros para saber

									si son mayores que el promedio}

			inc(mayor);

			write(num[i],' ');

		end;

	end;

	writeln;writeln;

	writeln('Hay ',mayor,' numeros mayores que el promedio');

	writeln;

	writeln('El promedio de los 50 numeros es ',prom:4:2);

end.