Duvida em exercicio Pascal

Boa noite pessoal,
 
Fiz um exercicio mas fiquei pensando se não existe uma outra forma de fazer, ainda mais que a utilização do comando "break" não foi muito bem explicado
 
Enunciado:
¡Faça um programa em Pascal que possua um vetor com 3 nomes armazenados:
  nomes[1] := ‘Jose’;
  nomes[2] := ‘Maria’;
  nomes[3] := ‘Carlos’;
  O programa deverá solicitar a digitação de um nome qualquer, e buscará o nome digitado no vetor de nomes. Caso encontre o nome, escreverá ‘Achei!’; Caso contrário, escreverá ‘Não achei’;
 
Minha Solução:

1. Program Exerc_4_slide ;
2. var vet : array [1..3] of string;
3. i    : integer;
4. nome , R: string;    
5.  
6. Begin
7. for i := 1 to 3 do
8.     begin
9.      write( 'Digite o ', i , 'o. nome: ' ) ;
10.      read( vet[i] ) ;
11.     end;
12.         
13.         write( 'Digite o nome que voce quer procurar: ' ) ;     
14.         read( nome ) ;
15.             
16.             
17. for i := 1 to 3 do
18.     begin
19.      if ( nome = vet[i] ) then
20.     begin
21.          R := 'Achei!!!';
22.          break;
23.      end
24.          else
25.          R := 'Não achei!!!';
26.     end;
27.  
28.     write( R ) ;
29. End.