Перевод текста с латыни на русский

const
  count=10;{количество слов в словаре}
var
  s,temp:string;
  i,tempi,c:integer;
  a:array[1..2,1..count]of string;
begin
  a[1,1]:='aqua';a[2,1]:='вода';
  a[1,2]:='astrum';a[2,2]:='звезда';
  a[1,3]:='aurum';a[2,3]:='золото';
  a[1,4]:='caelum';a[2,4]:='небо';
  a[1,5]:='gloria';a[2,5]:='слава';
  a[1,6]:='jus';a[2,6]:='закон';
  a[1,7]:='numus';a[2,7]:='земля';
  a[1,8]:='locus';a[2,8]:='место';
  a[1,9]:='memoria';a[2,9]:='память';
  a[1,10]:='vita';a[2,10]:='жизнь';
  writeln('Введите строку...');
  readln(s);
  temp:='';
  c:=0;
  for i:=1 to count do
    if pos(a[2,i],s)<>0 then
    begin
      tempi:=pos(a[2,i],s);
      delete(s,tempi,length(a[2,i]));
      insert(a[1,i],s,tempi);
      inc(c)
    end;
  writeln('Перевод:');
  if c=0 then
    writeln('Данных слов нет в словаре!')
  else
    writeln(s)
end.