Consulta nome em um vetor

Program Pzim ;
{1. Faça um programa que armazene 5 nomes em um vetor.
Apos ser digitado um nome, se for encontrado no vetor
mostrar a posição desse nome no vetor, caso contrario
mostrar a mensagem: Não enconteri!.}
var
nome:array[1..5] of string;      //variavel vetor para armazanar os nomes
i:integer;                       //contador
cons_nome:string;                //variavel para receber o nome a ser consultado no vetor
 Begin
  for i:=1 to 5 do            //cadastra os 5 nomes no vetor
  begin
  writeln('Digite o ',i,'o. nome : ');
  readln(nome[i]);
  clrscr;           //limpa a tela
  end;
  writeln(' C O N S U L T A  N O M E ');
writeln;
writeln('Digite um nome para consulta : ');  //recebe o nome a ser consultadp
readln(cons_nome);

  for i:=1 to 5 do
  begin
  if (nome[i]=cons_nome) then     //se no vetor na posição i, o nome for igual a consulta de nome,
  begin
  writeln('O nome : ',cons_nome,', aparece na posição ',i);
end       // mostra
  else
begin
writeln('Nome não encontrado');
end;

  end;
                      // se digitar o nome em mais de uma posição, ele mostra todos
 End.