Pascal/Turbo Pascal - problema p solucionar, de Pascal. Ayuda?

Hola a quienes lean ésto. Me gustaría si alguien tiene tiempo y ganas de ayudarme, si sabe cuál sería la programación en Pascal para un problema a resolver que dice así:

Se ingresan 10 números. Luego, se requiere saber el menor número ingresado, y luego el mayor.

De verdad agradecería si alguien me lo pasa, tengo tiempo hasta el lunes 18-10-10, dejo mi msn por si alguien me lo quiere mandar o contactarse conmigo para ayudarme. Estuve pensándolo por varios días, probando y me resulta muy difícil sacar la solución.

[email protected]

muchas gracias!! :)

program prueva;
uses crt;
var i:1..10;
may,men,x:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Ingrese el numero: '); readln(x);
end;
may:=x[1];
men:=may;
for i:=2 to 10 do
begin
if x[i]>may then may:=x[i];
if x[i]<men then men:=x[i];
end;
writeln(' El menor numero ingresado es: ',men);
writeln(' El mayor numero ingresado es: ',may);
reakey;
end.