Pascal/Turbo Pascal - No sé como poner el numero máximo y mínimo de una lista

Var

num,suma,i,max,min:integer;

media:real;

Begin

suma:=0;

for i=1 TO 10 DO

 Begin

  writeln('Introduce el número ',i,':');

  readln(num);

  suma:=suma+num;

 End;

writeln('La suma de los 10 números es: ',suma);

media:=suma/10;

writeln('La media es: ',media:2:2);

writeln('El número mayor es: ',max);

writeln('El número menor es: ',min);

End.

Var

	num,suma,i,max,min:integer;

	media:real;

Begin

	// Empezamos con suma valiendo 0

	suma:=0;

	// Hacemos 10 ciclos/bucles/loops

	for i=1 TO 10 DO

	Begin

		//En cada uno pedimos el valor para el indice i

		writeln('Introduce el número ',i,':');

		//Lo guardamos en num

		readln(num);

		//Suma es una variable acumulativa

		//A su valor actual le añadimos el introducido

		suma:=suma+num;

	End;

	//Mostramos la suma

	writeln('La suma de los 10 números es: ',suma);

	//Mostramos la media

	media:=suma/10;

	//Mostramos la media con 2 decimales

	writeln('La media es: ',media:2:2);

	//Mostramos el valor de la variable max (que no tiene)

	writeln('El número mayor es: ',max);

	//Mostramos el valor de la variable min (que no tiene)

	writeln('El número menor es: ',min);

End.

program SMMM;

Var

	num,suma,i,max,min:integer;

	media:real;

Begin

	// Empezamos con suma valiendo 0

	suma:=0;

	// Empezamos con min y max valiendo 0

	min :=0;

	max :=0;

	//también los puedes inicializar

	//escribiendo min,max,suma : integer = 0; en la sección var

	// Hacemos 10 ciclos/bucles/loops

	for i:=1 TO 10 DO

	Begin

		//En cada uno pedimos el valor para el indice i

		writeln('Introduce el número ',i,':');

		//Lo guardamos en num

		readln(num);

		//Suma es una variable acumulativa

		//A su valor actual le añadimos el introducido

		suma:=suma+num;

		//Si es el primer numero que introducimos

		if i = 1 then

			min := num; // entonces min valdrá lo que num

		//Comprobamos si el valor introducido es menor que el minimo actual

		if (num < min) then

			min := num; // Si es así reemplazamos el valor de min

		//Comprobamos si el valor introducido es mayor que el máximo actual

		if (num > max) then

			max := num; // Si es así reemplazamos el valor de max

	End;

	//Mostramos la suma

	writeln('La suma de los 10 números es: ',suma);

	//Mostramos la media

	media:=suma/10;

	//Mostramos la media con 2 decimales

	writeln('La media es: ',media:2:2);

	//Mostramos el valor de la variable max

	writeln('El número mayor es: ',max);

	//Mostramos el valor de la variable min

	writeln('El número menor es: ',min);

End.