Pascal/Turbo Pascal - Detectar edad mayor y menor

Hola alguien podria ayudarme? estoy haciendo un programa en pascal sobre un censo de poblacion. Lo necesito saber es como hago para saber de todas las edades que intoduzca cual es la mayor y cual la menor. La mayor la decto facil con esa no tengo problema el detalle esta es en la menor, ya que a mi forma de ver la primera edad deberia ser edmay:=edmenor. la mayor la detecto asi

edmay:=0;
si edad > edmay entonces
edmay:=ed;

el problema biene con la menor que allo como solucionarlo.

edmin := 999; { nadie puede tener 999 años, al menos no durante este siglo ;) }
if (edad < edmin) then edmin:=edad;

gracias eso lo habia pensado pero cuando coloco 2 edades x ej 34 y 45 me da como resultado
edmay:45
edmen:45

Luis, lo que te dijo diego esta perfecto, lo habras hecho mal.
Mira x ej
edadmay:=999;
readln(edad);
if edad < edadmay then
edadmay:=edad;

Entonces seria asi:
insertas una edad, x ej 34
pregunta si 34 es menor que 999, como es V a edadmay:=34.

dps ponele q fuera un ciclo y t pide d nuevo la edad, ingresas 45
y pregunta, es 45 mayor que 34?, como es falso, no hace nada
y a l imprimir mayedad, t qda la menor, osea en este caso 34.

Como es que no t funciona???
vos no querias la menor edad?? :S

Un abrazoo

El problema es que no compare 34 con 45 que en realidad es mi duda pero no se como expresarlo xq no podria utilizar una variable para c/edad creo que no seria logico pero nunca lo e hecho si alguien tiene un ejemplo se lo agradeceria.

perdoname he tratado de analizar lo que dices pero como va a ser falso que 45 es mayor que 34 yo creo que ni aqui ni en ninguna parte. no se si lo que me querras decir es que negando algo podria conseguir otra cosa. pero si puedes por favor explicate mejor.

Star
begin
var
mayor = 0
menor = 999999999999
writeln "Escriba un numero"
Read N
For (I=1; I= N ; I++)
writeln"Indique el valor del número";
Leer Num
If (Num>Mayor) then
Mayor = Num;
else
if (Num<Menor) then
Menor = Num;
end if
end if
end for

writeln "el numero mayor es" Mayor;
writeln "El numero menor es" Menor;

Este lo consegui en la web creo que tiene mas de un error si se dan cuenta
Esto es lo que yo necesito pero por lo que entiendo en este caso estaría limitado el numero de personas que podria ingresar

Hola, tu error, es q el menor no tiene que ir x el else
Tiene que ir las dos en el mismo .
es asii:

For ..(I=1,I=n; I++)
writeln("Indiquie el valor del numero");
leer num
f (Num>Mayor) then
Mayor = Num; {de esta manera cargas el mayor}
if (num < Menor) then
menor = Num; {con esta pregunta cargas el menor}
...


tiene que ser asi, xq de esa manera, no perdes el menor, sino lo perdes como lo hciiste vos

Con e ejemplo de 34 y 45 si segun cual cargaras primero, con tu codigo, daria con los dos 45.

D esta manera no pasa, es decir, no deben ser if anidados, sino secuenciales :)

Un abrazooo

Hola!
Como no se puede enviar notas con código, subí el programa a un sitio.
Este es el link para descargarlo:

http://www.savefile.com/files/1229107

Saludos!

Muchas gracias por su colaboracion.

Bueno les cuento que ya lo solucione. era un error de logica yo habia inicializado las variables eme y emay dentro del while, por tanto c/vez que pasaba por ahi se volvian a inicializar. Muchas gracias a todos y espero molestarlos lo menos posible.

envieme un speudocodigo en turbo pascal de un ce
nso