var tent01 : array [1..100] of record
    id : integer;
    nome : string;
    cnh : string[11];
    sexo : char;
    nasceu : string[6];
  end;

type pessoa = record
  id : integer;
  nome : string;              
  cnh : string[11];
  sexo : char;
  nasceu : string[6];
end;

var tent02 : array [1..100] of pessoa;
  umapessoa : pessoa;

{... códigos...}
  tent01[1].id := 1;
  tent01[1].nome := 'Frank';
  tent01[1].cnh := '01234567890';
  tent01[1].sexo := 'M';
  tent01[1].nasceu := '030576';
  {... códigos...}

  pos := buscanome('Frank');
  cnhvitima := tent01[pos].cnh;

  {... códigos...}
  tent02[4].id := 1;
  tent02[4].nome := 'Frank';
  tent02[4].cnh := '01234567890';
  tent02[4].sexo := 'M';
  tent02[4].nasceu := '030576';
  {... códigos...}

  {... códigos...}
  umapessoa.id := 1;
  umapessoa.nome := 'Frank';
  umapessoa.cnh := '01234567890';
  umapessoa.sexo := 'M';
  umapessoa.nasceu := '030576';
  {... códigos...}

  umacnh := qualcnh(umapessoa);
  outrapessoa := umapessoa;
  
  pos := buscanome2('Frank');
  cnhvitima := tent02[pos].cnh;
  umapessoa := buscapornome('Frank');
  if umapessoa.id > 0 then
    // recebi uma pessoa válida, posso continuar o processo

function buscapornome(nome : string) : pessoa;
var ptemp : integer;
  rpessoa : pessoa;

begin
  ptemp := 1;
  rpessoa.id := -5;
  while ptemp <= gpessoas do
  begin
    if nome = tent02[ptemp].nome then
    begin
      rpessoa := tent02[ptemp];
      break;
    end;
    ptemp = ptemp +1;
  end;
  buscapornome := rpessoa;
end;


  if alvo = tent02[ptemp].nome then // devolve ptemp