const
  Path = 'C:\Users\TOM\Desktop\1.txt';

var
  f, i, p: Int32;
  Arr: TStringArray;
  Data: String;
begin
  f := OpenFile(Path, True);
  ReadFileString(f, Data, FileSize(f));
  CloseFile(f);

  Arr := Explode(#13#10, Data);
  for i := 0 to High(Arr) do
  begin
    p := Pos('$', Arr[i]); // Deletes everything after (and including) "("
    if (p > 0) then
      Arr[i] := TrimLeft(Copy(Arr[i], p, Length(Arr[i])   ));
  end;

  f := RewriteFile(Path, True);
  WriteFileString(f, Implode(#13#10, Arr));
  CloseFile(f);
end.