function find_person( person )

  name = input( 'Name der gesuchten Person: ', 's' );

  num_pers = length( person );         % Zahl der Personen
  gefunden = 0;
  for( n = 1:num_pers )                % Suchschleife
    if( strcmp( name, person(n).name ) )  % Test des Namens 
        fprintf( '%s hat die Telefonnummer %g \n', ...
                 person(n).name, person(n).telnr );
        gefunden = 1;     
    end
  end      
  
  if( gefunden == 0 )
      fprintf( '%s wurde nicht gefunden \n', name  );
  end
