Файл, слова-цифры

uses
  crt;
  
procedure open_read(var f:text);
  var
    s:string;
  begin
    assign(f,'путь до файла1');
    reset(f);
  end;
 
procedure open_write(var f:text);
  var
    s:string;
  begin
    assign(f,'путь до файла2');
    rewrite(f);
  end;
 
procedure close(var f:text);
  begin
    close(f);
  end;
 
procedure lower(var st:string);
  const
    high=['А'..'Б'];
  var
    i:integer;
  begin
    for i:=1 to length(st) do
      begin
        if st[i] in high then st[i]:=chr(ord(st[i])-ord('А')+ord('а'))
      end;
  end;
 
procedure space(var st:string);
  begin
    while pos(' ',st)>0 do delete(st,pos(' ',st),1)
  end;
 
function change_m(var st:string):integer;
  var
    i:integer;
  begin
    while pos('минус',st)>0 do
      begin
        i:=pos('минус',st);
        delete(st,pos('минус',st),5);
        insert('-(',st,i);
        insert(')',st,length(st)+1)
      end;
  end;
  
 function change_100(var st:string):integer;
  var
    i,j:integer;
  begin
    while pos('сто',st)>0 do
      begin
        i:=pos('сто',st);
        delete(st,pos('сто',st),3);
        insert('100',st,i)
      end;
  end;
  
function change_90(var st:string):integer;
  var
    i:integer;
  begin
    while pos('девяносто',st)>0 do
      begin
        i:=pos('девяносто',st);
        delete(st,pos('девяносто',st),9);
        insert('90',st,i)
      end;
   end;
  
var
  f1,f2:text;
  st:string;
begin
  open_read(f1);
  open_write(f2);
  while not eof(f1) do
    begin
      readln(f1,st);
      lower(st);
{тут нужно сложить строки}
      space(st);
      writeln(f2,st);
    end;
  close(f1);
  close(f2)
end.