program ideone;
 
var
  arr1: array[0..1] of string = ('nome-outros', 'me-outros');
  arr2: array[0..1] of string = ('me-outros', 'nome-outros');
 
procedure func(var arr: array of string; pl: string; c: char);
var
  i: integer;
  p: integer = -1;
begin
  for i := 0 to 1 do
  begin
    if copy(arr[i], 1, pos(c, arr[i]) - 1) = pl then
    begin
      p := i;
      break;
    end;
  end;
  writeln('Posição de ''', pl, ''': ', p);
end;
 
procedure correcto(var a: array of string; s: string);
begin
  func(a, s, '-');
end;
 
procedure incorrecto(var a: array of string; s: string);
begin
  func(a, s, ':');
end;
 
begin
  writeln('arr1 = (''', arr1[0], ''', ''', arr1[1], ''')');
  writeln('arr2 = (''', arr2[0], ''', ''', arr2[1], ''')');
  writeln;
  writeln('*** Testes correctos (com ''-'') ***');
  writeln('--arr1------------------------------');
  correcto(arr1, 'nome');
  correcto(arr1, 'me');
  writeln('--arr2------------------------------');
  correcto(arr2, 'nome');
  correcto(arr2, 'me');
 
  writeln;
  writeln('*** Testes incorrectos ('':'') ***');
  writeln('--arr1----------------------------');
  incorrecto(arr1, 'nome');
  incorrecto(arr1, 'me');
  writeln('--arr2----------------------------');
  incorrecto(arr2, 'nome');
  incorrecto(arr2, 'me');
end.

cHJvZ3JhbSBpZGVvbmU7Cgp2YXIKICBhcnIxOiBhcnJheVswLi4xXSBvZiBzdHJpbmcgPSAoJ25vbWUtb3V0cm9zJywgJ21lLW91dHJvcycpOwogIGFycjI6IGFycmF5WzAuLjFdIG9mIHN0cmluZyA9ICgnbWUtb3V0cm9zJywgJ25vbWUtb3V0cm9zJyk7CiAgCnByb2NlZHVyZSBmdW5jKHZhciBhcnI6IGFycmF5IG9mIHN0cmluZzsgcGw6IHN0cmluZzsgYzogY2hhcik7CnZhcgogIGk6IGludGVnZXI7CiAgcDogaW50ZWdlciA9IC0xOwpiZWdpbgogIGZvciBpIDo9IDAgdG8gMSBkbwogIGJlZ2luCiAgICBpZiBjb3B5KGFycltpXSwgMSwgcG9zKGMsIGFycltpXSkgLSAxKSA9IHBsIHRoZW4KICAgIGJlZ2luCiAgICAgIHAgOj0gaTsKICAgICAgYnJlYWs7CiAgICBlbmQ7CiAgZW5kOwogIHdyaXRlbG4oJ1Bvc2nDp8OjbyBkZSAnJycsIHBsLCAnJyc6ICcsIHApOwplbmQ7Cgpwcm9jZWR1cmUgY29ycmVjdG8odmFyIGE6IGFycmF5IG9mIHN0cmluZzsgczogc3RyaW5nKTsKYmVnaW4KICBmdW5jKGEsIHMsICctJyk7CmVuZDsKCnByb2NlZHVyZSBpbmNvcnJlY3RvKHZhciBhOiBhcnJheSBvZiBzdHJpbmc7IHM6IHN0cmluZyk7CmJlZ2luCiAgZnVuYyhhLCBzLCAnOicpOwplbmQ7CiAgCmJlZ2luCiAgd3JpdGVsbignYXJyMSA9ICgnJycsIGFycjFbMF0sICcnJywgJycnLCBhcnIxWzFdLCAnJycpJyk7CiAgd3JpdGVsbignYXJyMiA9ICgnJycsIGFycjJbMF0sICcnJywgJycnLCBhcnIyWzFdLCAnJycpJyk7CiAgd3JpdGVsbjsKICB3cml0ZWxuKCcqKiogVGVzdGVzIGNvcnJlY3RvcyAoY29tICcnLScnKSAqKionKTsKICB3cml0ZWxuKCctLWFycjEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0nKTsKICBjb3JyZWN0byhhcnIxLCAnbm9tZScpOwogIGNvcnJlY3RvKGFycjEsICdtZScpOwogIHdyaXRlbG4oJy0tYXJyMi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLScpOwogIGNvcnJlY3RvKGFycjIsICdub21lJyk7CiAgY29ycmVjdG8oYXJyMiwgJ21lJyk7CiAgCiAgd3JpdGVsbjsKICB3cml0ZWxuKCcqKiogVGVzdGVzIGluY29ycmVjdG9zICgnJzonJykgKioqJyk7CiAgd3JpdGVsbignLS1hcnIxLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLScpOwogIGluY29ycmVjdG8oYXJyMSwgJ25vbWUnKTsKICBpbmNvcnJlY3RvKGFycjEsICdtZScpOwogIHdyaXRlbG4oJy0tYXJyMi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0nKTsKICBpbmNvcnJlY3RvKGFycjIsICdub21lJyk7CiAgaW5jb3JyZWN0byhhcnIyLCAnbWUnKTsKZW5kLg==