Hola querido foro de clab, hoy tengo una duda basica para algunos de ustedes pero me he quebrado la cabeza y no se como hacerlo. el problema.

1.Escriba un programa simple que use una lista de nombres tipo arreglo y guarde varios nombres en la lista.

2. Con los datos del ejercicio anterior. Haga un modulo para preguntar al usuario un nombre y que despues busque ese nombre en la lista, No olvide manejar el caso en el que el nombre buscado no este en la lista.

El primero ya lo tengo hecho, en el segundo tengo algunos problemas, aqui mi codigo

Código :

program arrays2;
uses crt;

const
max = 10;

var
nombres : array [1..max] of string[10];
nombre  : string;
i, j : integer;

begin
for i:=1 to max do
begin
writeln(i, ' - Nombre');
readln(nombres[i]);
end;

for i:=1 to max do
begin
writeln('Escriba un nombre: ');
readln(nombre);

if (nombre = nombres[i]) then
begin
   writeln(nombres[i]);
end

else
writeln('nombre no valido');
end;

readln;
end.


El programa corre, pero los nombres todos los tira como no validos, solamente el numero 1 lo tira como correcto, como puedo buscar entre arrays, digamos que la funcion diga si el nombre existe o no :S.

Les agradeceria muchisimo su ayuda y espero no molestar a nadie, Saludos