Maior e Menor número de um vector

program maior_inserido;
uses crt;
var vector : array[[1..10]] of integer;
    numero, i, maior, menor  : integer;

begin
clrscr;
repeat
writeln('Introduza um numero entre 2 e 10 para verificar qual ? o maior');
readln(numero);
until (numero > 1) and (numero <= 10);
for i := 1 to numero do
begin
writeln('Introduza um numero:');
readln(vector[[i]]);
end;

maior := vector[[1]];
menor := vector[[1]];

for i:=2 to numero do
begin
if vector[[i]] > maior then
maior := vector[[i]];
if vector[[i]] < menor then
menor := vector[[i]];
end;
writeln('O maior n£mero ? ', maior, ' e o menor ? ', menor);
readln;

end.