Pascal/Turbo Pascal - pascal, mostrar numero mayor y menor ingreasdo por el usuario

HALLO! estoy programando en turbo pascal, necesito hacer un programa que calcule de quince numeros ingresados por el usuario cual es el mayor y cual es el menor, el problema es que cuando lo ejecuto me muestra cual es el mayor cuando ingreso solo de un digito, pero al ingresar de dos digitos me dice que el numero mayor es 0. Les paso el codigo:

PROGRAM VEK;
USES CRT;
TYPE
WE=ARRAY[0..14] OF BYTE;
VAR
N:WE;
X,Y,CONT,MAY:INTEGER;
BEGIN
CLRSCR;
WRITELN('INGRESE QUINCE NUM');
FOR X:=0 TO 14 DO
BEGIN
READLN(N[X]);
END;
CONT:=N[X];
FOR X:=0 TO 14 DO
BEGIN
IF N[X]>CONT THEN
MAY:=N[X];

END;
WRITELN(MAY);
READLN;
END.
porfavooor me urge :l

Disculpa yo tengo que hacer un programa en turbo pascal que de la secuencua de numeros 5 3 0 2 4 4 0 0 2 3 0 6 0 2, contar e imprimir el numero de ceros de la secuencia .