У меня вопрос по программированию в делфи.

А конкретно по массивам.
Я написал программу перевода чисел в слова
и хочу знать как сделать возможным перевод в обоих направлениях а не в одном как сейчас?
procedure TForm1.Button1Click(Sender: TObject);
const
mon: array [1..2] of string=('ïðèâåò', 'ïîêà';-);
var n: integer;
begin
n:=strtoint(edit1.Text);
edit1.Text:=mon[n];
end;