Duvida em registro

[Aramis Marques]

Estos com a seguinte duvida:

É o seguinte,tenho uma trabalho pra fazer em que preciso fazer um dicionario portugues - inglês usando arvores AVL,minha duvida é no procedimento Inserir,que segue abaixo:

procedure InserirElemento( x_palavra ,idioma: string; var a:arvore );

begin

if( a = nil )then

begin

new(a);

a^.palavras.idioma:= x_palavra;

a^.esq:=nil;

a^.dir:=nil;

end

else

begin

if( x_palavra > a^.palavaras.idioma)then

InserirElemento(x_palavra,idioma,a^.dir )

else

begin

if( x_palavra < a^.palavaras.idioma )then

InserirElemento( x_palavra, idioma,a^.esq)

else

writeln('Palavra ja existe');

end;

end;

end;

Eu posso fazer com que o usuario digite idioma e usar essa variavel para referenciar campo do registro?EX:usuario entra com o idioma portugues,então a palavra vai ser salva no ender:a^.palavras.portgues:=x_palavra ,ou sera que vou ter que fazer dois procedimentos de inserção,um para portugues e outro para inglês?

Desde ja ,agradeço.

[Irio]

Tu pode ler qual o idioma e fazer um case para descobrir em qual gravar.

procedure InserirElemento( x_palavra ,idioma: string; var a:arvore );
begin
  idioma:= upcase (idioma);
  case (idioma) of
    'PT', 'PTBR': begin
      ...
    end;
    'EN', 'ENG': begin
      ...
    end;
  end;
end;

[Aramis Marques]

Então,eu acho que vou ter que fazer isso mesmo,eu queria era achar um jeito de não repetir o código,valeu ai pela dica.