Нужен небольшой переводчик слов англ->рус и рус->англ

uses crt;
const n=25;
var a,r:array[1..n] of string;
    i,k:byte;
    slovo:string;
    w:char;
begin
clrscr;
writeln('Введите фнглийские слова и их перевод:');
for i:=1 to n do
readln(a[i],r[i]);
clrscr;
repeat
clrscr;
writeln('Направление перевода:');
writeln('1-английский-русский');
writeln('2-русский-английский');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    write('Введите слово на англиском языке  ');
    readln(slovo);
    k:=0;
    for i:=1 to n do
    if a[i]=slovo then
     begin
      k:=1;
      write(' - ',r[i]);
     end;
    if k=0 then write('Такого слова в словаре нет.');
    readln;
    end;
'2':begin
    write('Введите слово на русском языке  ');
    readln(slovo);
    k:=0;
    for i:=1 to n do
    if r[i]=slovo then
     begin
      k:=1;
      write(' - ',a[i]);
     end;
    if k=0 then write('Такого слова в словаре нет.');
    readln;
    end;
else exit;
end;
until not (w in ['1','2']);
end.

writeln('Введите английские слова и их перевод:');
for i:=1 to n do
 begin
  write('английское - ');
  readln(a[i]);
  write('русское - ');
  readln(r[i]);
 end;