Pascal/Turbo Pascal - Arreglo deNombres

Hola a todos, Estoy trabajando con un programa que usa una lista tipo arreglo, hasta ahi no tengo aproblemas, el detalle es que tambien kiero crear un procedimiento que me permita buscar un nombre en la lista, y que en caso de que no se encuentre en la lista me diga "Error, ese nombre no se encuentra en el arreglo".

Este es el codigo que estoy utilizando.
program problema2;
uses crt;
var
nombres:array[1..10] of string [25];
auxnombre,nombrecons:string[25];
cont:integer;
(*Procedimiento del Encabezado*)
procedure encabezado;
begin
textcolor(10);
writeln(' Universidad Pedagogica Nacional ');
Writeln(' Programacion Intermedia ');
writeln(' Lic. Jorge A. Miranda Paz ');
Writeln(' Alumno: Edwin Bautista ');
end;
(****************************************)
procedure consulta;
begin
for cont:=1 to 10 do
begin
auxnombre:=nombres[cont];
if auxnombre=nombrecons then
begin
writeln (nombres[cont])
end
else
writeln('Error, ese nombre no se encuentra en la Lista');
end;
end;
end;
(***************************)
(****aki leo al arreglo*)
begin
encabezado;
for cont:=1 to 10 do
begin
textcolor(14);
gotoxy(5,8);
clreol;
write('Escriba el ',cont,' nombre: ');
textcolor(White);
readln(nombres[cont]);
writeln();
end;
for cont:=1 to 10 do
begin
textcolor(13);
writeln(nombres[cont]);
end;
writeln();
write('ingrese el Nombre a consultar:');
readln(nombrecons);
consulta;
readln;
end.

{te lo propondria asi , claro , hay muchas formas }

procedure consulta;
begin
clrscr;
write('Proporcione el nombre a consultar');
readln(nombrecons);
for cont:=1 to 10 do
begin
if nombres[cont]=nombrecons then
writeln ('El nombre ',nombres[cont],' Existe !'))
else
writeln('Error, ese nombre no se encuentra en la Lista');
end;
end;
end;
(***************************)
(****aki leo al arreglo*)
begin
encabezado;
for cont:=1 to 10 do
begin
textattr:=14+7*16; {con este sustituyes al textcolor y al textbackground}
gotoxy(5,8);write('Escriba el ',cont,' nombre: ');
readln(nombres[cont]);
end;

readln;
end.