Автоматический перевод с английского языка

program Translator;
uses DOS, CRT;
var
 f: text;
 ch: char;
 r: registers;
 word_eng: string;
//--------------------------------
 procedure InitMouse;
  begin
   r.ax:=0;
   intr($33,r);
   if r.ax <> $FFFF
    then
     begin
      writeln('The mouse did not find.');
      Halt(1);
     end;
   writeln('The mouse found.');
   r.ax:=1;
   intr($33,r);
  end;
//--------------------------------
 procedure AssignDictionary;
  begin
   Assign(f,'D:\Turbo Pascal 7.1\tp7\slovar.doc');
  end;
//--------------------------------
 procedure SetExampleString;
  begin
   writeln('wrestler thrift plaid rap.');
  end;
//--------------------------------
 procedure GetWordEng;
  var
   x,y: word;
   symb: char;
   marks_punct: set of char;
  begin
   r.ax:=3;
   intr($33,r);
   word_eng:='';
   marks_punct:=[' ',',','.','!','?','-','(',')'];
   if r.bx and 1 <> 0 then
    begin
     x:=r.cx div 8;
     y:=r.cx div 8;
     r.ax:=2;
     intr($33,r);
     symb:='1';
     while not (symb in marks_punct) do
      begin
       Dec(x);
       symb:=chr(Mem[SegB800:y*160+x*2]);
      end;
 
     Inc(x);
     symb:='1';
     while not (symb in marks_punct) do
      begin
       symb:=chr(Mem[SegB800:y*160+x*2]);
       word_eng:=word_eng+symb;
       Inc(x);
      end;
    end;
  end;
//--------------------------------
 procedure SearchTranslation;
  var
   i: byte;
   symb: char;
   flag: boolean;
   word,str: string;
  begin
   Reset(f);
   flag:=false;
   while not Eof(f) do
    begin
     i:=0;
     word:='';
     readln(f,str);
     while str[i] <> ' ' do
      begin
       word:=word+str[i];
       Inc(i);
      end;
     if word = word_eng
      then
       begin
        writeln(str);
        flag:=true;
        Close(f);
        Break;
       end;
    end;
   if flag = false
    then
     begin
      Close(f);
      writeln('The word did not find in the dictionary.');
     end;
  end;
 
begin
 ClrScr;
 InitMouse;
 SetExampleString;
 AssignDictionary;
 writeln('Press <Esc> to exit.');
 repeat
  GetWordEng;
  SearchTranslation;
  writeln('Please, press <Enter> to continue.');
  ch:=ReadKey;
 until ch = #27;
end.