Прочитать из txt-файла формулу, и решить ее

Program TF1; 
var 
     filin: text;
     a:string; x,y,z:integer; 
begin 
  assign(filin, 'input.txt'); 
  reset(filin);
  read(filin, a);
  writeln('введи а и б')
  readln(x,y);
 {тут должна быть замена а и б в полученной формуле}
  z:=a;  
  close(filin); 
end.

x1:=pos('a',a);
x2:=pos('b',a);
str(x,a[x1]);
str(y,a[x2]);

Program TF1; 
var 
     filin: text; 
begin 
  assign(filin, 'output.txt'); 
  rewrite(filin); 
  write(filin,'Ahahah'); 
  close(filin); 
end.

{$i-} {отключает слежение системы за ошибками ввода-вывода}  
   error:=ioresult; //ioresult возвращает код последней ошибки и сбрасывается 
   if error<>0 then 
   begin 
     writeln('Ошибка открытия файла! Код ошибки: ',error); 
     halt(error); 
   end;

rewrite(f,'file');
write(f,'1111');

reset(f);
read(f,a);

readln(textvar, stringvar);

readln(textvar);//пропускаем первую строку
readln(textvar, stringvar);//читаем вторую в переменную